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EDITORIAL 


De nombreux lecteurs nous téléphonent ou nous écrivent pour nous poser des questions sur l’Apple et ses 
utilisations possibles. Il ne nous est malheureusement pas possible de répondre à tous. D’une part, cela demande 
souvent du temps, et il s’agit là de notre ressource la plus rare. D’autre part, il y a encore beaucoup de choses que 
nous ne savons pas, ou pour lesquelles l’équipement nous fait défaut. Les questions les plus fréquentes ou les plus 
intéressantes peuvent aussi trouver leur réponse dans le Courrier des Lecteurs. Nous vous prions de nous excuser de 
ne pas pouvoir faire plus en ce moment, mais nos moyens ne nous permettent pas encore d’assurer ce genre de 
service. 


Nous vous offrons quatre longs articles dans ce numéro. Tout d’abord, l’article d’initiation à l’ Assembleur, de 
Jean-Louis Meillaud, annoncé dès le numéro 1... Ensuite, la seconde partie de l’analyse du directory, de Michel 
Crimont. Enfin, le programme de transfert BASIC-Pascal-BASIC réalisé par Gilles Mauffrey pour la disquette 
Pom’s N°2, et un article de Bruno Estrangin sur les joies de la communication à l’aide d’un Apple. 


De nombreux autres articles viennent compléter ce numéro 3, y compris (et c’est là une première pour nous) des 
contributions de lecteurs. N’hésitez pas à poursuivre dans cette voie : le prosélytisme et la participation sont les clés 
de la réussite de votre revue. C’est vous qui faites votre revue; nous ne sommes que des catalyseurs ! 


Les lecteurs nous demandent souvent s’il est encore possible de commander le numéro 1, ou si l’on peut acquérir les 
disquettes séparément. La réponse est affirmative dans les deux cas. N’hésitez pas non plus à nous faire parvenir des 
petites annonces. Elles seront gratuites, sous réserve qu’il s’agisse effectivement d’annonces de particuliers. La 
périodicité trimestrielle est en effet quelque peu un frein pour les annonces, mais cela n’empêche pas le rapport 
performance/prix d’être excellent. 


Personne n’ayant trouvé la bonne réponse à notre concours publié dans Pom’s N° 2, nous vous donnons page 60 une 
seconde chance de prouver votre sagacité et de gagner ainsi un abonnement d’un an. 


Nous vous donnons rendez-vous au salon Micro-Expo, qui se tiendra à Paris du 14 au 19 juin 1982. Nous y 
partagerons un stand avec les revues La Commode (Commodore) et Trace (TRS-80). 


Hervé Thiriez 
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Apprentissage de l’assembleur (1) 


Jean-Louis Meillaud 


IL N'Y A PAS DE LANGAGE UNIVERSEL 


Le possesseur d'un Apple qui veut se lancer dans la programmation est tout de 
suite sollicité par une pléiade de langages, BASIC, Pascal, Forth etc, sans parler 
de quelques ‘“vieilleries" comme le Cobol et le Fortran. Ces langages ont sans 
doute beaucoup d'attrait pour ceux qui disposent à la fois du temps et du budget 
nécessaires! Mon propos n'est pas d'entamer une polémique avec ceux qui vantent 
les mérites de Pascal et du pari qu'il représente... À mon niveau, que je pense 
être celui de nombreux utilisateurs, l'Apple, tel qu'il est livré, avec son BASIC 
et son MONITEUR, a de quoi contenter les plus exigeants. Les softs, je devrais 
dire les logiciels, proposés par les sociétés spécialisées (une bonne centaine 
rien qu'aux Etat-Unis) sont écrits à 99% dans un mélange de BASIC et de 
langage-machine, et ils marchent en effet très bien. 


Prenons comme référence l'Apple Il+ avec Applesoft et Autostart, qui représente le 
Standard actuel. Ce BASIC est un langage d'une souplesse et d'une facilité 
d'emploi inégalées. Le fait que le BASIC Applesoft soit interprété et soumis à un 
contrôle syntaxique au moment de cette interprétation rend nos programmes 
immédiatement opérationnels; ce n'est pas le cas avec des langages compilés. 


Les limitations mêmes de l'Applesoft me paraissent plutôt un avantage. Il est 
facile, quand le besoin s'en fait sentir, de trouver des sous-programmes simulant 
le PRINT USING (voir POM'S numéro 4, en juin) ou les instructions de traitement de 
matrices qu'on trouve généralement dans les BASICs plus "étendus". Sans goût 
immodéré pour le paradoxe, je dirais que l'Applesoft est efficace en proportion de 
sa simplicité. 


LES VRAIES LIMITES 


Le BASIC, quelque soit son parfum, Applesoft ou Integer, se montre invivable dans 
certaines applications. Pour des calculs très répétitifs, sa lenteur devient 
exaspérante. Qui n'a jamais "piqué une crise" devant son écran à attendre qu'une 
boucle en BASIC finisse de s'exécuter, ou encore qu'un segment de programme soit 
chargé 7? Ceux qui ont essayé d'utiliser un Mailing List tel qu'APPLEPOST me 
comprendront. Et pourtant ce progiciel a été écrit par les gens de PERSONAL 
SOFTWARE, les auteurs de VISICALC. Certaines solutions employées sont certes 
ingénieuses et de nature à inspirer le programmeur en quête de routines élégantes. 
Mais, en la circonstance, le BASIC se montre d'une telle gourmandise qu'il a fallu 
segmenter le programme et que la majeure partie du temps d'exécution se passe en 
appel de ces segments de programme. 


LA SOLUTION HARMONIEUSE 


Le BASIC est irremplaçable pour les petites tâches qui s'exécutent en une fois, 
comme les affichages d'écran. Il faut le compléter par des sous-programmes en 
langage-machine pour tous les travaux répétitifs tels que les conversions de 
codes. 


Il faut remarquer que le langage-machine, comme le fait d'ailleurs le BASIC, peut 


utiliser des sous-programmes fort efficaces qui se trouvent dans le Moniteur. 
D'autre part il n'est pas interdit de brancher un programme en langage-machine sur 


Pom's No 3 5 


une fonction Applesoft dont on connait le point d'entrée. 
L'ARTICULATION 


La communication entre Applesoft et langage-machine est prévue dans l'Applesoft 
grâce aux quatre instructions CALL, PEEK, POKE et USR. En outre, différentes 
techniques sont répertoriées pour effectuer ces mixages (cf S.H.LAM Routine, 
expliquée dans. POM'S numéro 2). 


LES OUTILS DE TRAVAIL 


La "Bible", c'est le "REFERENCE MANUAL" , le bouquin que vous avez soigneusement 
mis de côté le jour où vous avez pris livraison de votre Apple ! Il est grand 
temps de le faire sortir de sa cachette et de se familiariser avec les commandes 
du Moniteur; les exercices sont obligatoires pour une bonne compréhension. Il vous 
faut également un manuel de programmation en assembleur et ... un assembleur. 


L' ASSEMB LEUR 


Je commence par lui car il constitue une option fondamentale. Son choix entraîne 
en partie celui du manuel. 


PREMIERE HYPOTHESE : Vous avez un ancien APPLE II, que nous appelerons APPLE IT 
MOINS. Vous êtes vernis car vous disposez du "MINI-ASSEMBLER"; le "Vieux" Moniteur 
et le BASIC Ehtier, moins voraces que l'Applesoft Autostart, laissent la place à 
ce petit bijou, ainsi qu'aux sous-programmes Step et Trace, bien utiles pour les 
mises au point. 


DEUXIEME HYPOTHESE : Vous avez un APPLE II +. Vous n'avez plus ni Trace ni Step et 
le MINI-ASSEMBLER a également disparu. Pour le récupérer, il faut que votre APPLE 
soit muni soit de la carte "Integer", (TRACE et STEP réapparaissent dans la 
foulée), soit, (plus normalement, car l'intérêt de l'INTEGER en PROM est limité), 
de la Carte Langage qui vous redonne le Mini-Assembleur, mais cette fois sans le 
pas-à-pas ni le tracæe. 


Si vous êtes réduit à l'APPLE II + sans plus... pas de mini-assembleur, ce qui est 
bien gênant car même si un "grand" Assembleur est pratiquement indispensable, le 
mini" rend bien des services pour les programmes courts et les modifications 
rapides. Le mini est très pratique car il vous permet de voir ce que vous faites 
au fur et à mesure que vous écrivez votre programme. Aussitôt écrite, votre 
instruction est assemblée, à l'endroit même où elle devra être exécutée. 
L'écriture est particulièrement simplifiée et rapide. Il est par contre impossible 
d'assortir vos lignes de commentaires, pourtant bien pratiques pour savoir ce que 
vous aviez voulu faire, quand vous redécouvrez votre programme quelque temps plus 
tard. 


LES GRANDS ASSEMBLEURS 





L'inconvénient majeur du mini-assembleur pour les programmes importants est que, à 
la différence des grands, il ne permet pas les étiquettes symboliques. Ces 
étiquettes (Symbolic Labels) sont le principal atout du langage assembleur . Elles 
vont vous permettre, dans un assembleur adulte, de dire par exemple "Branchez-moi 
sur les TRAVAUX D'HERCULE", ou plus exactement sur "TVXDHERC", car il y a quand 
même une limite dans le nombre de caractères permis (4 à 8 suivant les modèles); 
pendant la phase d'assemblage, le programme assembleur ira chercher l'adresse de 
votre routine TRAVAUX D'HERCULE quand celle-ci sera définitive . Le Programme 
d'assemblage, qui a pour mission de transformer votre programme source (langage 
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assembleur) en programme objet (langage-machine) déterminera automatiquement cette 
adresse en début d'exécution lors du premier passage. C'est quand même une bonne 
manière de s'affranchir du GOTO X du BASIC, qui vous obligera à mettre 
impérativement votre routine en ligne X, ou si vous changez d'avis, à modifier 
toutes vos références à X dans les GOTOs et autres GOSUBs. 


Ces étiquettes symboliques et bien d'autres merveilles ne sont disponibles que sur 
les assembleurs complets. Il y en a une demi-douzaine de connus sur le marché et 
il n'est pas toujours facile de les départager. Ils sont en pleine crise de 
croissance et chaque nouvelle version représente un progrès sur la dernière 
version du concurrent... Dans un état larvaire il y a deux ans, d'aspect encore 
trés "bricolé" il y a seulement un an, ils s'améliorent de trimestre en trimestre 
et on peut considérer aujourd'hui qu'ils ne sont pas loin d'atteindre leur 
majorité. En outre les assembleurs actuels s'accompægnent d'une foule 
d'utilitaires : désassembleur pour transformer un programme en langage-machine en 
programme en assembleur, traçage pour aide à la mise au point et table de 
références pour retrouver toutes les instructions qui utilisent une étiquette 
donnée. L'existence de ces utilitaires vous simplifie la vie. 


Nous prendrons comme assembleur de référence le LISA car, d'une part, c'est le 
plus répandu en France et, d'autre part, son auteur, Randy Hyde, est bourré 
d'idées qu'il a le bon goût de nous faire partager, non seulement en les 
incorporant dans ses logiciels, mais aussi en nous les commentant dans différentes 
publications (revue Applesauce et livre de programmation du 6502) et même à 
l'intérieur des listings-source de ses programmes. 


LISA - prononcé "Lailleza" comme Minelli- Interactive Assembleur est un assembleur 
conversationnel de format libre. IL a le grand avantage, comme l'INTEGER, de 
signaler vos erreurs de syntaxe au fur et à mesure de l'écriture sans avoir à 
attendre le premier passage. EM outre il met à votre disposition un large éventail 
de ‘"“pseudo-codes", commandes qui s'exécutent pendant l'assemblage. Il y en a pour 
chaque situation ! 


MANUELS DE PROGRAMMATION EN ASSEMBLEUR 


Dans ce domaine également, l'évolution est rapide. IL y a encore un an nous 
n'avions à nous mettre sous la dent que des livres sur l'assembleur pour le 
microprocesseur 6502 en général, ce qui permet de programmer l'Apple mais ne tient 
aucun compte de la mine de programmes tout faits que sont le Moniteur et le DOS, 
sans parler de l'Interpréteur BASIC. Toutes les routines de gestion de l'écran, du 
clavier et des autres périphériques existent déjà. Il convient simplement d'avoir 
la clé d'accès. 


Ces livres sur le 6502 sont d'ailleurs excellents. Eh dehors du Rodnay Zaks, que 
je ne connais que de réputation (bonne, merci et vous!), mon coeur balance entre 
le R. Findley (6502 Software Cookbook, chez Scelbi) et le L.A. Leventhal (6502 
Assembly Language Programming, Osborne/McGraw Hill). 


L'Apple-o-mane (ou Pommolâtre) français est désormais comblé. Il peut apprendre 
l'assembleur spécifique de son P.S.I. favori et dans sa propre langue . Eh effet, 
Nicole Bréaud-Pouliquen a publié son Tome III de la Pratique de l'Apple (Hition 
du P S I ). Em collaboration avec Daniel-Jean David, elle nous dissèque le 
langage-machine et l'assembleur du 6502. IL est important d'avoir un livre 
spécialement orienté APPLE, car le programmeur est souvent appelé à utiliser 
directement des routines du Moniteur. Il serait titanesque d'avoir à les 
ré-écrire, sans compter qu'il serait difficile de faire aussi bien que Steve 
Wozniac. Comme le disent (aussi) les Américains à tout bout d'article : "IL est 
inutile de réinventer la rouel!". 
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Le Don & Kurt Inman , "Apple Machine Language" édité par Reston/Prentice Hall est 
lui aussi spécifique. Le pas-à-pas trés "enseignement programmé" est agréable à 
suivre |. Pour les amateurs de sons et de graphiques, il est fait de larges 
incursions dans ces domaines. Malheureusement le livre s'arrête au moment où ça 
devient vraiment intéressant, c'est à dire au moment d'aborder le véritable 
assembleur, avec étiquettes symboliques et pseudo-codes. À conseiller néanmoins au 
débutant, s'il lit l'Anglais. 


Le bouquin que j'attendais personnellement avec le plus d'impatience, le Randall 
Hyde, est enfin sorti. Il s'agit de "How anyone can program the Apple II - Using 
6502 assembly Language". Il est parfait pour les utilisateurs de LISA, car il 
donne un tas de tuyaux complémentaires (utilisation des pseudo-codes LISA et du 
TRACE 65 pour la mise au point des programmes). Mais bien qu'il s'intitule de 
lui-même "Best Seller", son manque d'universalité empêche de le recommander à des 
gens qui n'auraient pas l'intention d'utiliser le LISA. Ces derniers par contre ne 
pourront s'empêcher d'avoir l'eau à la bouche à l'annonce des futurs volumes de la 
collection “Advanced 6502 L/M programming (Graphics, Disk I/0...)" et "Z80 and 
6809 programming on Apple". 


Enfin, pour rester dans les nouvelles alléchantes, signalons la sortie aux U.S. de 
MEveryone's Guide to Assembly Language". C'est la réunion des exceptionnelles 
chroniques parues dans SoftTalk depuis plus d'un an. Elles sont signées Roger 
Wagner, auteur d'Appledoc (voir Pom's numéro 2) et patron de la société de 
Software S D S . Ce livre constitue l'initiation la plus progressive et la plus 
complète au langage-machine de l'Apple et à l'assembleur. 


LES SOFTS UTILES 


L'amateur est noyé sous les logiciels mis à sa disposition . C'est peut-être cette 
multiplicité qui lui a fait préférer l'APPLE . Mais ces lœæiciels, ainsi que les 
dispositifs "hardware" mis sur le marché, ne sont pas tous d'une égale utilité. 
Dans chaque numéro de Pom's, des articles nous permettrons d'y voir plus clair et 
de sélectionner, par exemple, les aides à la programmation les plus efficaces. 


Dès qu'il nous faut écrire, à titre professionnel ou privé, un système de 
traitement de texte est le premier pas vers la rentabilisation de notre "micro". 
Personnellement, j'ai un gros faible pour "Applewriter'". C'est un bon soft, dont 
l'acquisition est peu onéreuse. Attention à Applewriter II, annoncé par Apple 
Computer ! Il parait qu'il "tire dans les coins". Mais il sortira en version 
protégée... et il ne sera pas donné. Notre Applewriter actuel, s'il est un peu 
frustre, en ce sens qu'il lui manque un certain nombre d'options, disponibles sur 
SUPER SCRIBE et autres MAGIC WINDOWS, est perfectible. La plupart des options ou 
gadgets qui lui font défaut peuvent lui être greffés. Il suffit pour cela de 
parler sa langue, le langage-machine. 


A mes yeux, la plus belle qualité d'Applewriter est d'être un système ouvert. Il 
existe nombre de "softs sophistiqués" qui vous rendent malade. Aussi perfectionnés 
soient-ils, ils ne peuvent toujours correspondre à ce que vous en attendez et il 
arrive fatalement qu'un jour ou l'autre vous souhaitiez leur faire subir une 
petite opération de chirurgie esthétique. IL y a un truc en trop, une commande 
dont l'exécution vous parait exaspérante, ou un truc qui manque, une idée à vous 
qui vous parait géniale et dont la mise en oeuvre vous simplifierait bien la vie. 
Bref, vous voulez apporter des modifications. Hélas pas de "moœiif" possible. Ces 
softs sont généralement cadenassés et leurs auteurs se sont évertués, par psychose 
du piratage, à vous empêcher d'en trouver la clé. 


Avec Applewriter, tout est possible ! Non seulement on trouve dans le commerce des 
programmes tout faits ( AppleWriter Extended de chez Brillig Systems, Proportional 
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Text Formatter pour les Centronics 737/9 de Micro-Media, dont les produits n'ont 
pas l'air d'être très diffusés, ou encore "Go-Between", un programme qui, d'après 
Apple-Europe, serait disponible en Angleterre), mais encore n'importe qui peut 
s'écrire les modifs, à condition de posséder suffisamment le langage-machine. 
C'est même la meilleure manière de se familiariser avec le langage-machine, (cf. 
la modification qu'a écrite Sheila Widnall pour utiliser son adaptateur de 
minuscules ‘"Paymar Chip" avec l'Apple-Writer (Call-A.P.P.L.E. de Septembre 80), 
alors qu'un mois auparavant elle ignorait l'existence du LDA et les joies de la 
gestion de pile!). 


Je suis résolument hostile aux adaptateurs de minuscules qui donnent de bien 
vilains caractères. De même je pense que les cartes 80 colonnes ont un intérêt 
trés limité. Je me satisfais parfaitement de ce que l'Apple affiche sur l'écran. 
Par contre je tiens à ce que mon imprimante écrive en français. 


La modification que je vous propose aujourd'hui et qui nous servira de tremplin 
pour nous familiariser avec le langage assembleur permet de disposer de la 
quasi-totalité des lettres françaises accentuées que l'imprimante est capable de 
produire. Il faut bien entendu que l'imprimante dispose d'un jeu de caractères 
français, mais c'est le cas le plus répandu et c'est le cas en particulier des 
Centronics 730-2 et 737/739. Les seuls caractères pour lesquels nous n'apportons 
pas de solution immédiate sont le tréma et l'accent circonflexe, ces caractères 
qu'Applewriter sait éditer, mais ne sait pas positionner sur les lettres 
correspondantes. Pour le moment, nous non plus , nous ne savons pas les imprimer 
et nous ne saurons pas le faire avant d'avoir résolu le délicat problème de 
l'espacement arrière sur les imprimantes à lignes. Rassurez-vous, la solution 
existe et elle fera l'objet d'un prochain article. 


CARACTERES FRANCAIS 





Sans la moindre modification il est possible d'obtenir (manuel Apple Writer, 
extraordinary characters, p.31 ) les caractères suivants: 


é CTRL N 

‘ESC -CTRL.N * CRTL SHIFT P 

è SHIFT M à ESC CTRL SHIFT P 
$ ESC SHIFT M A ESC SHIFT N 

‘* SHIFT N 


La modification que nous proposons est directement inspirée du "patch" proposé 
par Lou Rivas pour utiliser le dispositif "Lower Case Adaptor" avec AppleWriter 
(Apple Orchard, Autome 1980). Cette modification permet d'imprimer le à, le ç et 
le trait mode soulignæge, en appuyant simultanément sur trois touches (CTRL A et, 
suivant le cas, la touche Barre oblique ou la touche Moins): 


ù CTRL A / 
ç ESC CTRL A / 
=. MÉSC'CTRE À = 


Après cette modification, la totalité des caractères ASCII 224 à 255 peut être 
affichée sur l'écran ( il faudra se familiariser avec les nouveaux symboles!). 
Plus important, il est désormais possible de produire sur l'imprimante la 
quasi-totalité des lettres françaises accentuées. 


Il est impératif que le programme modifié soit appellé TEDITOR car après 


l'impression (par "PRINTER") le retour à l'éditeur se fait par "BRUN TEDITOR" (en 
langage-machine... of course). Si vous désirez conserver le programme original sur 
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la même disquette (on ne sait jamais!), prenez le soin, avant toute modification, 
de changer son nom. 


MODE D'EMPLOI 


Il faut commencer par écrire le "patch" (moins français, mais plus joli que 
“verrue") en langage-machine. Nous allons utiliser LISA. Tout autre Assembleur 
fera l'affaire. Si on utilise le Mini-Assembleur il faut prendre particulièrement 
soin des adresses où doivent s'exécuter les branchements. Mais en l'occurence, la 
tâche est grandement facilitée par la présence du listing d'assemblage LISA. 


Il reste encore la solution qui consiste à taper directement les instructions en 
HEXA avec la fonction "CHANGE MEMORY" du Monitor, ultime recours de celui qui n'a 
pas encore d'assembleur. 


Nous prendrons comme origine $1848, qui se trouve en dehors du programme TEDITOR. 
Le pseudocode "ORG" s'occupera de tout. Une fois le programme assemblé, il 
convient de le sauver sur disquette. Pour cela faire "BSAVE 
CARFRAN.OBJ, A$ 1848, L$50". Le patch fait moins de 80 octets, mais il vaut mieux 
prévoir trop large que trop juste. N'oubliez pas que sur la disquette vous 
enregistrez par multiples de 256 octets (100 en hexadécimal) et qu'en conséquence 
l'avarice n'est pas payante! Tellement peu payante que, entre membres 
d'Apple-holic Anonymous, je peux bien vous confesser qu'il m'est arrivé de perdre 
trois heures à rechercher une erreur dans un prœramme en langage-machine, que 
j'avais tout simplement amputé du dernier octet. Eh effet, pour calculer la 
longueur de mon "BSAVE", j'avais retranché l'adresse d'origine de l'adresse de fin 
et j'avais ainsi escamoté un octet... C'est un grand classique, moins grave que 
d'oublier d'éteindre quand on retire une carte... mais tout aussi populaire ! 


Le côté farce de cette panne ne vous échappera pas quand je vous aurai dit que, 
aux premiers essais, mon programme ‘marchait comme sur des roulettes". Pour le 
tester, j'avais en effet fait suivre mon BSAVE d'un BRUN, sans prendre la 
précaution de vider la mémoire et du coup j'avais récupéré mon octet final, 
sagement resté à sa place en la circonstance. 


PRECAUTIONS ET SOINS 


Pour vous éviter une pareille mésaventure, je vous conseille la manoeuvre 
prophylactique suivante : avant de recharger un programme à tester, utilisez le 
"MOVE MEMORY" du Monitor pour mettre à zéro une zone aussi grande que possible. 
Par exemple, en supposant que votre programme de quelques centaines d'octets 
débute en $800, passez en Moniteur (CALL-151). Puis tapez 

800:0 

801<800.2000M 
Le TEDITOR prend chaque caractère du texte que l'on est en train d'éditer et lui 
fait subir un certain nombre de traitements pour voir de quoi il retourne (Lettre 
Ma juscule, si précédée d'un Escape, minuscule, ou caractère de contrôle 
correspondant à une commande du programme). Puis, s'il s'agit d'un caractère du 
texte proprement dit, il lui fait subir un changement radical de code. L'Apple II 
modifie légèrement le code ASCII pour son usage interne. Il lui ajoute un bit à la 
position la plus significative de l'octet (on parle alors d'ASCII négatif). 
Applewriter le secoue bien davantage : les majuscules sont descendues dans la zone 
des caractères en INVERSE ($01 à $1A), les minuscules prennent la place des 
majuscules en NORMAL ($C1 à $DA), quant aux signes de ponctuation et aux chiffres, 
ils viennent se placer avant les majuscules ($A1 à $BF). 
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Quand Applewriter a fini de tester le caractère à écrire (au moyen d'instructions 
CMP) et lui a fait subir les conversions voulues (avec des AND et des ORA), il le 
range dans une chaîne, dont l'adresse de départ se trouve dans la mémoire $28 et 
qu'il fait progresser en incrémentant le registre -Y. Il s'agit de l'adressage 
indirect post-indexé par Ÿ que nous retrouverons plus loin. 


Les Modes d'adressage trés variés sont un des points forts du 6502, mais aussi un 
sujet de perplexité pour le néophyte. Pour s'y retrouver, il suffit d'appliquer 
les conventions classiques suivantes: 


$ renvoie à l'adresse 

; ajoute à l'adresse la valeur du registre nommé après la virgule 

() donne l'adresse de l'adresse. C'est une boîte aux lettres. 

£$ n'indique pas une adresse, mais une constante à utiliser immédiatement. 

( Ne vous étonnez pas si, sur certaines imprimantes, le jeu de caractères français 
change le signe “pound" -notre signe mathématique sensiblement égal- en signe 
Livre Sterling ). 


MISE EN OEUVRE 


A l'aide de l'assembleur de votre choix vous avez préparé sur une disquette le 
fichier binaire CARFRAN.OBJ, ou encore vous possédez la disquette Pom's qui 
contient ce fichier. 


Vous disposez également d'une copie d'Applewriter. Il est recommandé de ne pas 
utiliser l'original ... 


1) Vous chargez la Modif : 
BLOAD CARFRAN.OBJ 


2) Vous mettez votre disquette Applewriter et vous chargez l'Æiteur: 
BLOAD TEDITOR 
Pour garder une copie de sécurité, vous changez le nom 
UNLOCK TEDITOR 
RENAME TEDITOR, VIEUX TEDITOR 
LOCK VIEUX TEDITOR 


3) Vous passez en Moniteur (CALL-151) et vous utilisez l'instruction pour changer 
la mémoire (Reference Manual p.44), afin d'introduire les nouvelles valeurs 
suivantes : 

#*811: 8D 10 CO AC 48 18 

*3D0G ou 9DBFG (retour à l'Applesoft) 


H) Vous enregistrez votre nouvel Editeur sur disquette: 
BSAVE TEDITOR, A$803, L$ 186C 


5) Après l'avoir essayé, vous verrouillez le nouvel éditeur : 
LOCK TEDITOR 


REMARQUE: Si vous ne disposez ni d'un assembleur ni de la disquette Pom's, vous 
pouvez encore vous en sortir : vous commencez directement au pas 2) et quand vous 
arrivez au pas 3) vous enregistrez également la modif en HEXA à partir de *1848: 
Bien entendu vous vous limitez au code objet qui est dans la partie gauche du 
listing d'assemblæge. | 
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LIGNES SOURCE POUR ASSEMBLAGE AVEC LISA 


TTL MCARACTERES FRANCAIS" 
ORG $1848 


Le pseudocode TTL permet, en LISA Version 2.5, d'imprimer le titre au début de 
chaque page de l'Assemblage. Eh outre, si vous disposez d'une Horloge Temps Réel, 
du type Mountain Computers (née Mountain Hardware), la date et l'heure 
s'imprimeront à côté du titre, ce qui est une façon agréable d'assurer la 
pagination d'un long listing. 


Le pseudocode ORG est lui indispensable; il permet à l'Assembleur de calculer 
l'adresse des branchements. Il est de la responsabilité du programmeur de placer 
son programme objet à l'adresse indiquée au moment de l'exécution (à moins que son 
programme ne soit écrit de façon à pouvoir être déplacé -"relocatable" disent les 
anglophiles-, c'est-à-dire ne comporte aucun saut à une adresse absolue. Si ce 
n'est le cas, il faut faire appel à un programme de déplacement (cf. J.-F. 
Duvivier Déplacement des programmes en Assembleur, Pom's N 1) 


C'est une bonne habitude que d'écrire, autant que faire se peut, des programmes 
recasables ("relocatable"). Il n'en est évidemment pas question dans notre exemple 
puisqu'il s'agit d'une modification qui doit se raccorder à une adresse bien 
définie (par JMP $1848 que nous avons placé en $814 dans AppleWriter). 


Le pseudocode OBJ, qui indique l'adresse de départ de l'Assemblaæge du code-objet 
est inutile ici car, à moins d'en décider autrement et de le spécifier 
expressément avec OBJ, ORG génère automatiquement un OBJ à la même adresse (en 
LISA). 


2. EQUATE 


Le pseudocode Equate (EQU) permet d'affecter une étiquette à une cellule de 
mémoire où se trouve une valeur ou un début de programme. S'il s'agit d'un 
programme, il suffira par la suite de faire un saut inconditionnel (JMP) ou un 
branchement conditionnel (BEQ) à cette étiquette. C'est beaucoup plus gai que la 
solution du BASIC, qui consiste à définir un numéro de ligne fixe au point 
d'entrée du sous-programme. 


Les ‘M“equates" servent beaucoup pour les sous-programmes du Moniteur. Si le 
sous-programme est en ligne (à l'intérieur du programme principal), vous faites 
figurer simplement l'étiquette avant la première instruction (cf. BAROBL infra). 
L'Assembleur LISA sait qu'il s'agit d'une étiquette parce que vous ne la faites 
pas précéder d'un espace, alors qu'il en faut au moins un avant un code 
instruction. 


Dans le dialecte spécifique à LISA, un equate à une mémoire en page zéro ($00 à 
$FF) s'écrit EPZ (equate page zero) et ne sera suivi, bien entendu, que de deux 
chiffres hexa au maximum. 


3. TEXTE EPZ $0028 


Il s'agit de la mémoire où le programme va chercher l'adresse de la chaîne de 
caractères qu'il est en train de constituer à partir des entrées au clavier. 


H. CLAVIER EQU $CO000 


Quand le caractère prélevé par un LDA à cette adresse est "négatif" (bit 7, le 
plus significatif, positionné), c'est qu'une touche du clavier a été enfoncée. Cet 
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état sera constaté par l'échec du test BPL. 
5. STROBE EQU $Cc010 


Remet le bit le plus significatif à zéro pour pouvoir accepter une nouvelle entrée 
clavier. Le programme va effectuer une série de tests afin de voir si les touches 
qui nous intéressent ont été activées, pour se rebrancher finalement au point d'où 
est partie la dérivation (au moyen d'un RTS). Si les caractères testés sont bien 
ceux que nous recherchons, ils doivent être stockés entre temps dans la chaîne de 
caractères qu'utilise A/W. Ceci est effectué par STA ($28),Y suivi d'un INY pour 
mettre à jour le pointeur. 


6. VALEUR IMMEDIATE - ADRESSE - ADRESSE DE L'ADRESSE 
LDA : Load Accumulateur permet de placer une valeur dans l'accumulateur. 


Cette valeur peut être contenue dans l'instruction : LDA £$Valeur en hexa, indique 
qu'il n'y a pas à chercher loin l'adresse de la valeur puisqu'il faut prendre 
littéralement la valeur contenue dans l'instruction. On parle alors d'adressage 
immédiat. 


La valeur peut être recherchée directement dans une cellule de mémoire dont 
l'adresse est contenue dans l'instruction: LDA $ adresse (en Hexa). C'est 
l'adressage direct. 


OM peut encore indiquer dans l'instruction l'adresse de la cellule où se trouve 
l'adresse de la valeur : LDA ($ adresse de l'adresse où se trouve la valeur). Ce 
système de boîte aux lettres s'appelle l'adressage indirect. Il permet d' utiliser 
la même instruction pour toute une série de valeurs. L'adresse de la boîte aux 
lettres est fixe, seul son contenu varie. 


Ühe autre manière de faire varier l'adresse consiste à associer un registre (X ou 
Y) dont le contenu vient s'ajouter à l'adresse. Il s'æit de l'adressage indexé. 
L'adresse indiquée dans l'instruction ne varie pas, mais on fait proœresser le 
ræistre. 

Si on marie l'indexæe avec l'adressage indirect on obtient l'adressage indirect 
indexé. On peut de la sorte faire varier l'adresse de la "boîte aux lettres", 
adressage indirect pré-indexé par X, ou faire varier l'adresse trouvée dans la 
boîte aux lettres, adressage indirect post-indexé par YŸ. Ici le rôle des deux 
registres d'index est nettement différencié, ce qui est bien agréable pour éviter 
les confusions 1! Ainsi LDA ($28),Y permet de charger l'accumulateur avec le 
contenu de l'adresse A+, A étant l'adresse contenue dans la mémoiré 40 (28 en 
hexadécimal). Les beautés de l'adressage indirect post-indexé par YŸ résident dans 
le fait qu'il n'a pas besoin de toucher au contenu de la cellule 40 et qu'il 
suffit d'incrémenter le registre-Y (INY) pour faire progresser l'adresse où l'on 
va lire où stocker le caractère suivant. 


7. LIGNES 9 A 11 


CMP £$81 ; TOUCHES CTRL-A? 
BEQ BAROBL 
RTS 


Les branchements conditionnels se font en deux temps. D'abord, on met en présence 
les quantités à comparer. Ici l'accumulateur et la valeur 129 (81 en hexa). 
Ensuite, on indique la condition et la branche à prendre si cette condition est 
remplie. 
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EM BASIC cela donnerait: 


10 LET A = ACCUMULATEUR : LET B = 129 : REM 129-$81 
20 IF À = B THEN GOTO 1000 
30 :REM SOUS-PROGRAMME BAROBL COMMENCE EN LIGNE 1000 


HO RETURN 
Remarque : la comparaison n'est pas à proprement parler une comparaison, mais une 
soustraction : avec CMP (et ses variantes) on soustrait la valeur à comparer de 


l'accumulateur (ou du registre concerné). Üh indicateur est positionné selon le 
résultat de cette soustraction 

C - pour Carry - s'il est positif 

Z —- pour Zero = s'il est nul 

N - pour Negative - s'il est négatif 


Tous ces indicateurs (flass) sont combinés dans un même registre, le Mot d'Etat 
(Status Word). L'instruction suivante de branchement conditionnel examine ensuite 
l'état de l'indicateur qui l'intéresse. 


BEQ (Branch if equal), par exemple, effectuera le branchement si la soustraction a 
donné pour résultat 0, c'est-à-dire si l'indicateur Z = 1. Par contre le 
branchement ne sera pas effectué si l'indicateur Z = O. Surprenant, mais 
lœique... Surtout si l'on considère que "O0" veut dire Faux et que "1" veut dire 
Vrai. 


Si la comparaison ne donne pas l'égalité c'est qu'il ne s'agit pas de CTRL-A. 
Retour au programme principal (RTS). Par contre si c'est un CTRL-A il convient de 
déterminer si celui-ci est accompagné d'une barre oblique ou d'un moins. 


Chaque fois que la bonne séquence de touches aura été décelée, nous transformerons 
le code ASCII dans le code qui donnera le caractère désiré à l'impression. Cela 
est effectué par . un LDA avec adressage immédiat, c'est à dire que l'on charge 
directement l'accumulateur avec la valeur ASCII qui servira au programme PRINTER. 
La différenciation provoquée par l'emploi préalable de la touche ESC (majuscules) 
sera effectuée dans le tronc commun du programme principal (TEDITOR classique). 


8. SOUS-PROGRAMME 


BAROBL: 
LDA CLAVIER 

BPL BAROBL ; RIEN! RELIRE CLAVIER. 
CMP £&$AF ; TOUCHE "/"? 
BNE TIRET? 
LDA £$DC 

ACCEPTE: 
STA STROBE ; LE CLAVIER EST PRET A 
RTS ; ACCEPTER UN CARACTERE 

TIRET?: . 
CMP £$AD ; TOUCHE "1? 
BNE ACCEPTE ; RIEN AU NUMERO.FAITES VOS JEUX! 
LDA £$DF ; SOULIGNERA A L'IMPRESSION 
BNE ACCEPTE ; STROBE MET BIT7 À O POUR LIRE 
STA (TEXTE), Y ; RANGE LE CARACTERE TRAITE 
INY ; DANS LA ZONE-TAMPON 
RTS 
END 
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JSR (Jump to subroutine) exécute un branchement inconditionnel. Il est au JMP ce 
que le GOSUB est au GOTO. C'est-à-dire qu' il s'attend à trouver ultérieurement un 
RTS (Return from subroutine), l'équivalent du RETURN du BASIC. 


BNE (Branch if not equal) ne doit guère poser de problème si on a compris le BEQ. 
Le branchement sera effectué si l'indicateur Z (dans le Mot d'Etat) est égal à 


zéro. 


STA (Store accumulateur) est la manoeuvre inverse de LDA. Il transfère le contenu 
de l'accumulateur dans la mémoire spécifiée. Ici nous utilisons donc l'adressæge 
indirect post-indexé par Y. Nous rangeons le contenu de l'accumulateur à l'adresse 
obtenue en ajoutant le contenu de la boîte aux lettres étiquetée "TEXTE" (d'après 
l'EPZ on sait qu'il s'agit de la cellule $28 en hexa, soit 40 en décimal, qui 
indique le point de départ de la chaîne de caractères) au contenu du registre YŸ 
(qui, lui, progressera d'une unité au prochain INY). 





LISA 2,5 CARACTERES FRANCAIS 

0800 1 TTL. MCARACTERES FRANCAIS" 

1848 2 ORG $1848 

1848 3 

0028 4 TEXTE EFZ $0028 

1501 5 DISQUE EQU #$1501 

C000 6 CLAVIER EQU $C000 

CO 10 7  STROËEE EQU $C010 

1848 C9 81 8 CMF #$81 3TOUCHES CTKL-A7? 

1844 FO 01 9. EEQ FAROELL. 

184C 60 10 RTS 

18 4D 11  EFAROEL: 

184D AD 00 CO 12 LDA CLAVIER 

1850 10 FE 13 EFL EAROEL $RIEN' KRELIKRE CLAVIER, 
1852 C9 AF 14 CMF  #$4F $ TOUCHE "/"7 

1854. DO 06 15 ENE TIKRET®? 

1856 A9 DC 16 LDA +4$DC 

1858 . 17  ACCEFTE! 

1858 8D 10 CO 18 STA STROËE $LE CLAVIER EST FKET À 
185E 60 19 RTS  ACCEFTER UN CARACTERE 
1850 20 TIRKET?: 

185C C9 AD 21 CMF #$AD ÿ? TOUCHE ‘-"® 

18SE DO F8 22 _ ENE ACCEFTE $RIEN AU NUMERO.À VOS MISES! 
1860 A9 DF 23 LDA #$DF $SOULIGNERA À L.'IMFRESSION 
1862 D0 F4 24 BNE ACCEFTE $STROËE MET EIT7 À 0 FOUR LIKE 
1864 91 28 25 STA (TEXTE) ,Y $RANGE LE CARACTERE TRAITE 
1866 C8 26 INY $DANS LA ZONE-TAMFON 


1CALL-151 


x1848,1868 


1848- C9 81 AD 00 C0 
1850- 10 FE 06 A9 DC 
1858-— 8D AD DO F8 
1860- A9 28 C8 60 
1868- 00 
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s. 
Œ: 


Afin de mieux 

tirer profit de toutes 
les possibilités 
d'APPLEE, 

et de ses extensions. 
Loin des contacts 
anonymes, 

pour un rapport 

plus humain, 

des revendeurs 
régionaux spécialisés 
vous proposent 

des logiciels sur mesure, 
standards, ou 
d'apprentissage. 

Un service technique 
avant et après-vente. 
N'hésitez pas à contacter le 
revendeur le plus proche 
pour un conseil 

où un renseignement 





F 


Annecy/Faverges 
74210 


Bayonne 


64100 


Bordeaux 
33000 


Clermont-Ferrand 
63000 


Epernay 
51200 
Lyon 
69003 


Marseille 2 
13000 


Montpellier 


34000 


Nancy/Laxou 
54250 


Orléans 
45000 
Perpignan 
66000 


Rouen 
76100 


Strasbourg 


67000 


Toulon 


83100 


Valenciennes 
59300 : 






DIG 


province 


EUROPROCESS 


Siège social : Doussard 
(50) 44.31.12 

LE CALCUL INTEGRAL 
3, rue Aristide-Briand 
(59) 55.43.47 
BOUTISOFT 33 

9, rue de la Lande 

(56) 91.55.08 

NEYRIAL 

5, Bd Desaix 

(73) 35.02.70 
MAGENTA GESTION 


7, av. A.-Thévenet Magenta 

(26) 53.19.93 

CIRCE 

9, rue P.-Florence 

(78) 54.31.95 

ORDITEL 

Siège social : BELCODEN 

(42) 04.44.00 

IFI-MICRO INFORMATIQUE 


9-12, rue Castilhon 
(67) 58.58.28 CENTER 


SEMITEC 

69, rue Mareville 
(8) 340.43.38 
AMC 


13, rue des Minimes 
(38) 62.62.58 


MAB 

2, place de Catalogne 

(68) 34.04.46 

CONSEIL COMPUTER 


20, quai Cavelier-de-la-Salle 
(35) 63.36.06 


CILEC 


18, quai Saint-Nicolas 
(88) 37.31.61 


SIA 

Lepaillon, avenue de Brunet 
(94) 23.74.30 
MICROMEGA 

38, rue de Famars 

(27) 46.89.22 





Si cette publicité vous intéresse, contactez le 
CALCUL INTEGRAL 


Contrôlez le nettoyage mémoire 


Guy Mathieu 





Un article de Gérard MICHEL paru dans le numéro 2 de POM'S étudie l'effet de 
différentes méthodes de "Garbage Collection" pour nettoyer la mémoire centrale des 
vieilles chaînes qu'elle contient 


- sarbage" automatique par Applesoft, 

- FRE (0) qui force le "garbage", 

- d'autres MFRE", par exemple FRE (16) avec un programme approprié en langage 
machine. 


Il peut être intéressant de voir de plus près comment fonctionne le ‘"garbage 
collection", en vue de choisir la méthode la plus convaincante pour un programme 
donné. Une façon de le faire est de visualiser sur écran graphique les stades 
successifs de l'occupation mémoire, ce que fait le programme listé ci-après. 


L'image écran dont le fac-similé est reproduit ici montre que le "sarbage" 
automatique par Applesoft est fait au dernier moment, quand de la place doit 
effectivement être dégagée : il nécessite alors un certain temps d'attente (selon 
les programmes, ce temps, souvent chiffré en secondes, peut dépasser la minute). 


Un ‘"garbage" forcé régularise le processus et ne demande que des temps unitaires 
faibles. Mais bien souvent, la somme de ces temps unitaires atteint, et dépasse 
même, parfois notablement, le temps total exigé par le "garbage collection" 
automatique. 

Le choix entre diverses façons de nettoyer la mémoire se pose par conséquent en 
des termes différents, car on ne peut plus parler d'optimum général. 


En mode conversationnel, on préfèrera généralement des attentes courtes, même si 
le temps total est plus long : psychologiquement, c'est une solution mieux 
acceptée; techniquement, le temps le plus long est de toute façon celui qui dépend 
de l'opérateur. 


Ii n'en va pas de même pour les travaux en temps différé ou semi-différé (par ex. 
chargement en mémoire centrale d'un gros fichier d'index). 


Quelques commentaires sur le programme 


- Les instructions 60 à 67 étudient la composition et la position sur écran de la 
chaîne de caractères destinée à former les nombres de l'échelle. 

- Les instructions 50 à 59 constituent un sous-programme de dessin de chiffres. 

- Les instructions 1500 à 1530 visent à mettre à égalité les 3 cas étudiés : un 
1 LOMEM" remet à O la zone de pointeurs cependant que la mémoire 40185 
(indestructible par le DOS) contient les valeurs successives d'une variable Z 
destinée à réinitialiser la "boucle J". 

- Enfin, chacun connait les vertus des mémoires 111 et 112 (instruction 81) qui 
contiennent la valeur décimale de la plus basse mémoire occupée à chaque instant 
par un tableau de "strings'". 
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97  HFLOT ZXX -— 2,2ZY4X TO ZXX + 2, 
2ZN% — 6 TO ZXX - 2,ZY%X - 6? RETURN 





0 HOME : ; 
Ne ES Ca 58 HPLOT ZXX - 2,2YX TO ZXX - 2, | 
10 REM INITIALISATION ZY4 — 6 TO ZX%X + 2,7V4 - 6 TO 
11 LOMEM? 16385: REM FROTECTION ZXX + 2,2% TO ZXX — 2,2Y%$ HPLOT 
ZONE HGR ZXX — 2,2V4 - 3 TO ZXX + 2,7 
13 FOKE 40185,50 , YA’ 34 RETURN 
15 DIM A$(150) 59 HPLOT ZXX + 2,ZYX TO ZXX + 2, 
20 REM DESSIN DU CADRE ZY% — 6 TO ZX4 — 2,ZYX - 6 TO 
21 HGR ? HCOLOR= 2 ZXX — 2,1Y% - 3 TO ZXX + 2,2 
22 HPFLOT 50,0 TO 50,150 TO 270,1 YA — 35 RETURN 
20 10 20.0 60 REM ECRITURE SUR ECRAN HR 
23 HFLOT 86,145 TO 86,150 | _ 
24 HFLOT 186,145 TO 186,150 61 DÉS CE LEN (ZA$): FOR I = 1 TO 
25 FOR Y = 0 TO 150 STEF 50% HFLOT _ Z2% 
50,Y TO 55,Y! NEXT 63 23% = ASC ( MID$ (ZA$,1,1)) - 
26 REM ECHELLES 17. 
27 FOR J = 0 TO 3 64 ON Z3%X GOSUE 50,51,52,53,54,5 
29 2Y4 = 50 X J +8 nn: Dr93687 98959 
30 ZXX = 36 - J x 82 IF ZXX < 20 THEN] 9 2X% = 2XX + 8 
ZXX = 20 66 NEXT I 
31 ZA$ = STR$ (J x 50) 67 RETURN 
32 COSUE 60 80 REM TRACE CARTE MEMOIRE 
33 NEXT J 81 MM = FEEK (112) x 256 + FEEK 
34 ZXX = 701:ZYX = 159:ZA$ = "2000 cure 
0" GOSUE 60 82 X = 50 + (MM - 16385) / 100 
35 ZXX = 170:ZYX = 159:ZA$ = "300 88 HPLOT X,J TO 270,4 
00": COSUE 60 84 UTAE 233 HTAB 12: PRINT J3 UTAE 
36 HCOLOR= 3? VTAB 23% FRINT "NE #85 HTAB 333 PRINT MM 
ITER.! … OCCUF, MEM: 85 RETURN 
eu 1000 REM CONSTITUTION DE STRINGS 
37 GOTO 1000 : | | 
50 HPLOT ZXX - 2,ZYX TO ZXX + 2, 1010 FOR J = 0 + Z TO 49 + 7 
ZYX TO ZXX + 2,ZYX — 6 TO ZX 1020 A$CID = "" 
4 — 2,2YX — 6 TO ZXX — 2,2Y4 1030 FOR T = 1 TO 100 
Si HPLOT ZXX,ZYX TO ZXX,ZYX - 6 TO 1050  NEXT I 
ZX% — 2,2Y4 — 43 RETURN 1060 (IF J < 50 THEN VTAE 22: PRINT 
52  HPLOT ZXX - 2,ZYX - 6 TO ZXX + GAREAÂGE COLLECTION’ AUTOMA 
2,IYL — 6 TO ZXX + 2,ZYX — 4 TIQUE"? GOSUE 80! GOTO 1500 
TO ZXX — 2,2ZY4X TO ZXX + 2,2 1070 VTAE 1 
Y£? RETURN 1080 IF J > 99 THEN 1110 
53 HPLOT ZX%X - 2,ZY4X TO ZXX + 2, 1090 IF J / 4 = INT (J / 4) THEN 
ZYL TO ZXX + 2,ZYX — 6 TO ZX PRINT FRE (0) VTAER 22! FRINT 
% — 2,IYX — 6? HFLOT ZXX - 2 FRE(O)’ TOUTES LES 4 EOUCL 
9ZYX — 3 TO ZXX + 2,ZYX — 83 , ES : | 
RETURN 1100 GOSUE 80: GOTO 1500 
54 HPFLOT ZXYX — 2,ZYX — 6 TO ZXX - 1110 APRENT FRE (0)? VTAE 221 FRINT 
2,INX — 2 TO ZXX + 2,2YX — 2 FRE(O) À CHAQUE EOUCLE , 
? HELOT ZXX,ZYX — 4 TO ZXX,Z 
YX? RETURN À 1120 GOSUE 80 
55 HPLOT ZXX - 2,ZYX TO ZXX + 2, os NEXT 9 : 
ZY% TO ZXX + 2,2Y4X - 3 TO ZX . LOMEM: 16385 
4 — 2,ZYX — 3 TO ZXX — 2,2Y% 520 DIN A$(101) 
— 6 TO ZXX + 2,ZY%X — 6t RETURN 1530 Z = FEEK (40185)! FOKE 4018 
SZ + 50! IF Z < = 100 THEN 
56 HFPLOT ZXX - 2,ZYX - 6 TO ZXX - 1000 


2,2Y4 TO ZX4X + 2,2YX TO ZXX + 
22Y4 — 3 TO ZXX - 2,2Y4X —- 3 
4 RETURN 
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Un exemple de HELLO 


Guy Mathieu 


Rien n'est aussi triste que le programme "HELLO" dont sont affligées tant de 
disquettes ! 


Un bon prœramme "HELLO" doit avoir deux caractéristiques 

- dire de quoi il s'agit (et ceci qu'il s'agisse d'un programme sophistiqué 
destiné à votre publicité, ou d'une simple disquette de travail utilisée chaque 
jour). 

—- permettre de faire ensuite... ce qu'il est logique de faire : un "RUN" sur un 
programme, ou l'obtention du catalogue. 


Accessoirement, il n'est pas désagréable que le programme "HELLO" soit 
extrêmement simple à mettre au point. 
Eh voici un exemple. 


Le cadre est valable pour tous vos programmes : votre nom ou celui de votre 
société, un copyright, un sigle, ... 

Dans le corps du programme, 2 instructions seulement servent à personnaliser. 
L'instruction 11 définira tous les titres : 

DATA X$, N,XI$, X26,...N[de 1 à 3] 

Dans l'exemple numéro 1 ci-dessous 

X$ = "DISQUE DE TRAVAIL 

N = 2 

XI$ !PRESSER LA BARRE D'ESPACEMENT" 

X2$ = "POUR OBTENIR LE CATALOGUE" 


L'instruction 300 lance la suite. Ici PRINT D$ "CATALOG': END 


Les choses ayant évolué, les programmes en cours de mise au point sont devenus 
opérationnels. Votre disquette est prête à être utilisée (peut-être à être 
commercialisée. Pourquoi pas ?). 


L'instruction 11 devient : 
DATA MON PROGRAMME, 3, PROGRAMME DESTINE, A MONTRER A TOUS, À QUEL POINT JE 


SAIS PROGRAMMER. 
L'instruction 300 devient, elle : 
PRINT D$ "RUN MON PROGRAMME". 
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1 D$ = 


10 


Li 


20 


, \, 
Œorrie Iletill 
TM 


CHR$ (4) 

REM DATA DANS L'ORDRE NOM DE 
CODE DU FROGRAMME, NOMERE DE 
LIGNES DE TEXTE,LIGNES DE TE 
XTE 

DATA DISQUE DE TRAVAIL,2,FRE 
SSEZ LA EARRE D'ESFACEMENT,F 
OUR OETENIR LE CATALOG 
REM LECTURE DATA 
READ T1$ 


Li = LEN (T1$) 
HT = INT (18 -— Li / 2) 
Tig$ = " Mo + T1$ + " " 
TO$ = LEFT$ (" 
1,Li + 
4) 
READ NT 
FOR I = 1 TO NT! READ T#(I)t NEXT 
EC = 39 IF NT = 4 THEN EC = 2 
VT = 82 IF NT © 2 THEN VT = 
£0 
HOME 


ES 
ee 


SOUBIRON S.A. 


BOUTIQUE MICRO INFORMATIQUE LIBRAIRIE INFORMATIQUE 
Tél : (61) 21.64.39 - 21.04.57 . Telex LPS INF 521075F 
9, rue Kennedy . 31000 TOULOUSE D 


Pom's No 3 








CONTRAT D'ENTRETIEN : S.A.V. DEPANNAGE RAPIDE 


INVERSE # FOR I = 1 TO 3 STEF 
23 VITAE Li HTAE HTÉ FRINT TO 
$i NEXT 

VTAE 25 HTAE HT$ INVERSE # FRINT 
T1$ 

NORMAL 

FOR I = 1 TO NT 

VTAE VTÉS FRINT T$(I) 
UT = UT + EC 

NEXT 

FOR I = 1 TO 4% FRINT $ NEXT 
VTAE 20% INVERSE $ FRKINT "CO 
FIC" 

NORMAL. 

FRINT "GKOUFE" 

FRINT "EUREQUIF 

——# EARRE D’'ESFAC." 

FRINT "VAUCRESSON 

FOUR CONTINUER" 

IF FEEK (€ - 16384) « = 127 

THEN 280 

HOME ? FRINT D$"CATALOG" 


SOUBIRON S.A. 
En plein cœur de TOULOUSE 
c’est : 
- 100 m°? d'exposition spécialisée 


— Une équipe de techniciens 
à votre service pour : 
- Etudes 
- Programmes 
- Mise en place 
- Formation 
_— Service après-vente 


Eu \ON 
3 ous 


Analyse du directory Pascal (Il) 


Michel Crimont 





A. Présentation générale 





Nous avons vu dans le précédent numéro comment lire directement le répertoire du 
disque Pascal sans passer par le #M"FILER'". Nous allons voir maintenant comment 
tirer parti de ces procédures pour placer automatiquement dans un fichier unique 
tous les répertoires de nos disques Pascal, ce qui permettra une recherche 
beauvoup plus aisée; l'article du prochain numéro motrera en complément comment 
réaliser les procédures de sélection dans le catalogue. 


Les types et variables précédemment définis restent valables, ainsi que les 
procédures et fonctions, excepté ECRIREP et LIREREP que nous n'utiliserons pas 
ici. 


Il convient d'ajouter le type ELEMENT qui est une ligne du catalogue définie comme 
un RECORD comprenant 


GENRE : deux caractères servant à définir l'utilisation et le type de programme; 
par exemple J : Jeux, G : Graphisme, U : Utilitaire, M : Mathématiques -pour 
l'utilisation- et P : Programme, L : Librairie, U : Unit, etc. - pour le type -. 


NOMFILE : nom du fichier. 

NOMDISK : nom du disque comportant le fichier. 
NUMBOITE : numéro de la boîte contenant le disque. 
DATEFILE : date de création du fichier. 


Les ELEMENTS sont placés dans un fichier nommé GARDE. L'item NUMBOITE de la fiche 
zéro conserve le nombre de fiches du fichier. 

PAPIER : nom du fichier d'impression. 

QUIT : Booléen d'arrêt du programme. 

IMP : impression si Vrai. 

NUMCAT : nombre de fiches du catalogue. 

NUMLINE : numéro de la ligne courante sur l'écran. 


Afin de rendre le programme très fiable, il est fait usage de diverses procédures 
filtrant tout ce qui est entré par l'utilisateur au clavier; par ailleurs, 
quelques procédures facilitent les affichages d'écran. C'est ainsi que 


MESSAGE : affiche une chaîne de caractères à la ligne Y et efface la fin de la 
ligne. 

ALARME : efface l'écran, sonne, affiche un message d'erreur et attend un [Return]. 
PRENCHAINE et ENTIER : permettent de prendre au clavier en toute sécurité et avec 
correction éventuelle par la flèche arrière une chaîne de caractères ou un entier; 
enfin un [Return] à la place d'une entrée clavier renvoie la chaîne ou l'entier 
donné en Variable, ce qui permet de garder une valeur par défaut. 


TRAIT et TRAITFIN : permettent l'ouverture et la fermeture du fichier impression 
avec édition d'un trait. 

CONTINUE : permet la lecture d'un écran et attend un [Return] pour afficher la 
suite. 

ZEROELEM : donne une valeur par défaut à Elément. 

DECODATE : renvoie une chaîne de caractères standard correspondant au type 


Pom's No 3 21 


d'entrée "Date". 

AFFICHE : place à l'écran une ligne du catalogue avec le numéro de la fiche. 
IMPRIME : imprime une ligne du catalogue. 

RAPPEL : rappelle à la fin du programme qu'il faut replacer le disque système dans 
le lecteur 1 [£4:]. 

TITRE : affiche ou imprime les têtes de colonne. 


Le fonctionnement du programme est le suivant : une fois le programme chargé 
apparaissent 4 options 
E(nregistrer, L(ire, M(odifier, F(in. 


Si l'on demande l'enregistrement, le disque dont le répertoire sera enregistré 
dans le catalœue sera placé dans le lecteur 1 [£4:], le disque contenant le 
catalogue général dans le lecteur 2 [£5:]. 


Afin d'éviter toute erreur, le disque du lecteur 2 devra porter un nom 
particulier, ici "CARNET", le plus simple étant de prendre un disque Pascal 
formaté, de lui donner le nom de "CARNET" et de placer dessus CATALOG.Code, si 
bien qu'il suffira lorsqu'on voudra ajouter un répertoire au catalœue de faire 
eX(ecute Æ£5:CATALOG, le disque "CARNET" contenant ainsi à la fois le programme et 
le catalogue général. 


La Lecture ne permet aujourd'hui que la lecture du catalogue général. Elle sera 
perfectionnée, pour permettre toutes les sélections imaginables, dans le prochain 
numéro. 


La Modification permet de modifier les éléments d'une fiche: cette fiche apparaît 
à l'écran. Si un item ne doit pas être modifié, il suffit de taper le [Return] 
pour garder la même valeur, sinon on entre d'autres données. 


B. Les procédures. 


1. OUVERTURE 

ouvre le fichier GARDE s'il existe et attribue à NUMCAT sa valeur (nombre de 
fiches du catalœue). Si le fichier n'existe pas, il est créé et la première fiche 
enregistrée (fiche non utilisée en dehors de NUMBOITE qui contient NUMCAT). 


2. REMPLIR 

est chargé de constituer une fiche à partir du répertoire du disque du £4: et des 
données complémentaires entrées au clavier. Il faut d'abord lire le répertoire 
avec LIREREP (4). Si ce répertoire ne peut être lu, la procédure envoit un messæge 
d'erreur. 


S'il est lu, on prépare une fiche vierge avec ZEROELEM, puis avec ENTETE on place 
le nom du disque et l'on demande le numéro de la boîte où se range ce disque. Ces 
valeurs sont ensuite gardées dans LM pour tous les fichiers de ce disque, puis on 
fait appel à la procédure FILES qui propose un par un les fichiers et demande s'il 
faut les inclure dans le catalogue (ce qui permet d'inclure seulement les nouveaux 
fichiers d'un disque sans reprendre les anciens déjà enregistrés). 


Si l'on garde un fichier, on garde son nom, sa date et l'on demande son type et 
son genre, puis on l'enregistre en place et l'on avance NUMCAT de 1. Quand le 
disque ne possède plus d'autre fichier, on ferme le catalogue pour se mettre à 
l'abri d'une coupure de courant ou d'un incident et on l'ouvre à nouveau. 


3. ENREGISTRE 
appelle simplement de façon itérative la procédure REMPLIR et donne les messages 
d'écran nécessaires pour les manipulations. 


H. LIRE et TRI 
permettent simplement d'éditer le catalœue soit à l'écran, soit sur l'imprimante; 
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ces deux procédures seront par la suite développées pour permettre des sélections 
dans le catalogue. 


5. MODIFIE 

affiche un numéro quelconque du catalogue qu'il faudra donc noter auparavant par 
une lecture et permet de modifier un item quelconque dans le cas par exemple où 
l'on change un disque de boîte ou un fichier de disque, ou encore si un programme 
a été transformé en UNIT. 


C. Le programme principal. 





Le programme principal est très simple 

PRINFO : attribue les caractères de contrôle d'écran. 

OUVERTURE : contrôle l'existence du disque "CARNET" dans le lecteur 2 et ouvre ou 
crée le fichier "DONNEES". 

suite, affichage du titre du programme et du nombre de lignes du catalogue, et 
attente des options. 

A la fin, mise à jour de NUMCAT sur la fiche zéro de GARDE - fermeture du fichier 
et rappel d'insérer le disque système au cas où l'on aurait placé dans le lecteur 
1 un autre disque. 


Quelques perfectionnements sont possibles au gré des lecteurs 


1. 11 est possible de placer dans le lecteur ? un disque simplement formaté sans 
nom particulier, auquel cas, lors de l'ouverture, le programme demande un nom pour 
ce disque (avec PRENCHAINE et 7 caractères maximum); grâce à la procédure ECRIREP, 
ce nom pourra être placé sur le répertoire du disque du lecteur 2: Le nom peut 
également être préalablement déclaré en constante dans le programme, mais 
attention si vous faites démarrer accidentellement votre programme avec un disque 
quelconque dans le lecteur 2 ! 


2. A la fin du programme, il est possible d'essayer d'ouvrir un fichier système du 


lecteur 1. Si IORESULT-0, le disque système est dans le lecteur 1, sinon l'on 
passe à RAPPEL. 


IBRAIRIE LA NACELLE 


INFORMATIQUE e ÉLECTRONIQUE e AUTOMATISME e MICROPROCESSEUR 


TOUS OUVRAGES ET ABONNEMENTS 
FRANCAIS ET ETRANGERS 


Tous les ouvrages français ou étrangers signalés dans cette revue peuvent être obtenus ou commandés à La Nacelle 


2, rue Campagne-Première 75014 PARIS - Tél. 322 56 46 


Métro Raspail - Parking à la hauteur du 120 bd du Montparnasse 
ouvert tous les jours lundi compris, sans interruption de 9 h 30 à 18 h 50, samedi fermeture à 17 h 50. 
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FROGRAM CATALOG; 
CONST MAXFILE 


TYFE  CRTCOMMAND 
CHOIDECA 
DATE 


DISQUE 


FICHIER 


ELEMENT 


VAR  KEFERTOIRE 


NUMLECTEUR 


“77; 


=(EFEOS ,EFEOL, INVERSE , NORMAL , DROIT ; GAUCHE, TETE) ; 
SET OF CHAR} 
“FACKED RECORD 
MOIS :1..12; 
JOUR :1..31; 
AN 1,99 
END} 
#KECORD 
Â #ARRAYCO,,21 OF INTEGER} 
NOMDISQUE 3STRKINGC71; 
E #INTEGER} 
NERFICHE  SINTEGER} 
C #INTEGER} 
DATEDISQUE DATE 
D,;E {INTEGER 


DEEFICHIER $ INTEGER} 
FINFICHIER: ? INTEGER; 
TYFEFICHIERS0,,7; 
NOMFICHIER $STRKINGC151; 
DERNELOC # INTEGER 
DATEFICHIERSDATE 

END} 

“RECORD 
GENRE. #ARRAYL1,:,21 OF CHAR; 
NOMFILE ISTRINGC 151; 
NOMDISK STRINGLC7]; 
NUMEOITE {INTEGER} 
DATEFILE DATE}; 

END} 


RECORD 

VOL DISQUE ; 

CATALOG HARRKAYL1,,.MAXFILE]I OF FICHIER 
END} 
{ INTEGERÿ 


HOME, ES ,EFL,EFE, SON, INV, NORM, CR$ CHAR; 


CH, COM 
FAFIER 
GARDE 


CHAR 
iTEXT} 
FILE OF ELEMENT}; 


NUMCAT , NUMLIGNE ;I,J,K,L3INTEGER; 


LM 
QUIT , IMF' 


(X!X) 


* ELEMENT ; 
* FOOLEAN; 


CX FROCEDURES DIVERSES x) 


CXEX) 


FUNCTION LIKEREF (NUM INTEGER) SEOOLEAN} 


ÉEGIN 
CXSI-X) 


UNITREAD(NUM,REFERTOIRE , SIZEOF(KEFERTOIRE) ,2)} 
LIREREF $=IORESULT=0 


CXBT+X) 
END ÿ 


FROCEDURE FRINFO 


ÉEGIN 
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HOME #:=CHRK (12); EFL£=CHR(29) $ ES 
SON #=CHR C7); INVÉE=CHR(18) ; NORM 
END ; 


FROCEDURE FRENRETURN: 
VAR SORT {CHAR} 
ÉEGIN 
REFEAT 
READ(KEYEOARD , SORT ) 
UNTIL EOLN(KEYEQOARD) 
END ; 


FUNCTION FRENCAR(EONSET {CHOIDECA) {CHARS 
VAR CH CHAR; 

EON  *EOOLEAN; 
ÉEGIN 

REFEAT 

READ (KEYEOARD ,; CH) $ 

IF EOLNCKEYEOARD) THEN CHS=CR;$ 

EONS=CH IN EONSET; 

IF NOT EON THEN WRITE(SON) 


$=CHR(S 


#=CHKC2 


ELSE IF CH IN LC’ ‘,,/A°1 THEN WRITE(CH) 


UNTIL EON; 
FRENCAR?=CH 
END $ 


FUNCTION OUT :EOOLEAN; 
EEGIN 

OUT:=FRENCAR(C'/0’,/N°1) IN C'‘0’1 
END; 


FROCEDURE MESSAGE (Y{INTEGER}SS$ STRING) } 
ÉEGIN 

GOTOXY(0,Y);HRITE(S,EFL) 
END $ 


FROCEDURE ALARME (CS 3% STRING) ; 

ÉEGIN 
GOTOXY(0,1)/WRITECSON,EFE) $ 
MESSAGE (10,5); 
MESSAGE(12,'FAITES 2RETURN# ‘)$ 
FRENRETURN 

END }; 


); 
0); 


CR #=CHR(13); 


EFES=CHRK(11) 


FROCEDURE FRENCHAINE (LONGMAX£ INTEGER $ EONSET  CHOIDECAS$ VAR S{STRKING) 


VAR Si #STRINGC11; 
CONT STRING; 
EEGIN 
S RE 4 
CONT:="’ 
REFEAT 


+ 
? 
# 


+ 
? 


IF LENGTHCCONT)=0 THEN S1L1]1$=FRENCARCEONSET+CCRI) 
ELSE IF LENGTH(CONT)I=LONCGMAX THEN S1LC1I1$=FPRENCAR(ECKR,ES 1) 


ELSE S1LC11:=FRENCARCEONSET+CCR,ES1) ; 
IF S1C11 IN EONSET THEN CONT$=CONCATCCONT,S1) 


ELSE IF SI1C1]1=ES THEN 
ÉEGIN 
WRITE(ES,° ‘,EË6); 
DELETE (CONT ,LENGTHCCONT),1) 
END ; 
UNTIL S1L11=CR;$ 
IF LENGTHCCONT)<£:0 THEN S$=CONT 
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ELSE WRKITE(S) 
END ÿ 


FROCEDURE ENTIER(LONGMAX:INTEGER}VAR StINTEGER) } 
VAR S1 tSTRINGC11; 
I : INTEGER; 
CONT _:STRING} 
OKSET :CHOIDECA}; 
BEGIN 
OKSETI=C/0/../9/13S1t= ‘$CONTI=" "3 
REFEAT 
IF LENGTH(CONT)=0 THEN S1L11:=FRENCAR(OKSET+CCRI) 
ELSE IF LENGTH(CONT)=LONGMAX THEN S1L11:=PRENCAR(CCR,ES1) 
ELSE S1C11:=PRENCARCOKSET+CCR,ES1) ; 
IF S1[11 IN OKSET THEN CONT:=CONCAT (CONT, 51) 
ELSE IF S1[1]ES THEN 
BEGIN 
HRITE(ES,’ ‘,E9)} 
DELETE (CONT; LENGTH(CONT) 1) 
END} 
UNTIL S1C11=CR} 
XF LENGTH(CONT)<>0 THEN 
BEGIN 
:=0} 
FOR It=1 TO LENGTH(CONT) DO 
BEGIN 
t=6x10St=6+(ORD(CONTCI1)-ORD(/0°)) 
END; 
END ELSE HRITE(S) 
END; 


FROCEDURE TRAIT}; 

VAR TI $ INTEGERÿ 

ÉEGIN 
RENRITE(FAFIER, ‘FRINTERS ‘) } 
FOR Ii=1 TO 79 DO WRITE(FAFIER, =’); 
WRITELN(FAFIER) 

END $ 


FROCEDURE TRAITFIN; 

VAR ISINTEGER} 

BEGIN 
WRITELN(FAFIER) ; 
FOR Ii=1 TO 79 DO WRITE(FAFIER, =’); 
FOR Tizi TO 6 DO WRITELN(FAFIER) } 
CLOSE (FAFIER) ? IMF$=FALSE 

END ÿ 


FROCEDURE CONTINU} 

BEGIN ° ’ 

MESSAGE(22,’FOUR CONTINUER TAFEZ ÆRETURN& ‘); 
FRENRETURN}$ 
NUMLIGNE 6 ; 
GOTOXY(0,5)WRITE(EFE) 

END ÿ 

Cx!Xx) | 

(x FROCEDURES GENERALES SFECIFIQUES DE MASTER CATALOGUE x) 

CXEX ) 


FROCEDURE ZEROELEMC(VAR L?ELEMENT) ; 
EEGIN 
WITH L DO 
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EEGIN 


GENREC11::°2°; GENRELC21:=°2"; 
NOMFILE 5=°°; NOMDISK =’; NUMEOITE #0 $ 
WITH DATEFILE DO 
ÉEEGIN 
MOIS ?=1; JOURI=1$ANI= 
END 
END 


END 


FROCEDURE DECODATE(DTIDATESVAR STDATE STRING); 
VAR ST STRING; 


FROCEDURE FAITSTRING(TIINTEGERSVAR SÉSTRING) ÿ 
ÉECGIN 

Sir’? 

STR(T,S)}; 

IF LENGTH(S)=1 THEN S$=CONCAT(’0°,5S) 
END } 


ÉEGIN 

STDATEË=’/7$STi="";$ 

WITH DT DO 

BEGIN 
FAITSTRING (JOUR, ST) } 
STDATE #=CONCAT(STDATE,ST,°/°)}; 
FAITSTRING(MOIS, ST) } 
STDATE #=CONCAT(STDATE,ST,°//°); 
FAITSTRING(AN, ST); 
STDATE $=CONCAT(STDATE, ST) 


END 
END} 
FROCEDURE AFFICHECINDEX!INTEGERSVAR ELM$SELEMENT) } 
VAR S {STRING} 
ÉECGIN 


IF NUMLIGNE=21 THEN CONTINU; 

GOTOXY (0 , NUMLIGNE ) ÿ 

WITH ELM DO 

BEGIN 
WRITECINDEX!#4,GENREL 1152, GENRELC21, NOMFILES 16, NOMDISK:8, NUMEOITE ? 4) ÿ 

DECODATE(DATEFILE, S)$WRITE(S:9) 


END 
NUMLIGNE $ ENUMLIGNE +1 
END ; 
FROCEDURE IMFRIMECINDEX!INTEGERSVAR ELMSELEMENT) }; 
VAR 5S STRING} 
ÉEGIN 
WITH ELM DO 
BEGIN 


WRITE(FAFIER, INDEX#4,GENRELC11:2,GENREL21,NOMFILE: 16, NOMDISK:8, NUMEOITE $ 4) $ 
DECODATE(CDATEFILE, 5) SWHRITELN(FAFIER,S#9) 
END 
END; 


FROCEDURE RAFFEL } 
ÉEGIN 
GOTOXY (0,3) $HRITE(EFE) ; 
MESSAGE(10,’LE CATALOGUE À ETE FLAÂACE DANS LE #55/); 
WRITECINV, SON); 
MESSAGE(12,’REMETTRE LE DISQUE SYSTEME DANS #45‘); 


Pom's No 3 27 


28 


WRITE (NOKM) ; 
MESSAGE (14, FAITES 2RETURN* ‘) $FRENRETURN 
END ; 


FROCEDURE TITKE ; 
VAR SiSTRKINC; 
ÉEGIN 
=’ ENK GT NOM DISQUE ET DATE’; 
IF IMF THEN WRITELN(FAFIER,S) ELSE MESSAGE(4,S) 
END ; 


(X!'x) 

(X FROCEDURES FROFRES AU FROGRAMME CATALOGUE x) 
CKXTX) 

CHOC KKOKOM OK OK DC DMC DK DK DK DK DK OK DDC DC DDC DC DC DICK KO 
(XOQOUVERTURE X) 

(x OUVRE LE CATALOGUE OÙ LE CRER Æ#INON x) 
CXHOKKKKK OK DK DK DK DC DC DK DK DKCOK DK DH DC DC DK DK DK KE DK KICK OK ) 


FROCEDURE OUVERTURE }; 
VAR EON # FOOLEAN ; 
EE GIN 
REFEAT 
EONS=FALSE; 
CXBT-X) 
RESET (GARDE ,; ‘ CARNET : DONNEES‘); 
IF IORESULT:0 THEN 
ÉEGIN 
NUMCAT :=GARDES « NUMEOTTE ; 
EON$=TRUE 
END ELSE 
BEGIN 
REWRKITE (GARDE ; CARNET $ DONNEES * ) ; 
ZEROELEM(GARDES) ÿ 
GARDES ,NUMEOITE =1 $NUMCAT:=1; 
FUT (GARDE) }; 
CLOSE (GARDE ; LOCK) ÿ 
RESET (GARDE , ‘ CARNET {DONNEES ‘) $ 
EON?=CTIORESULT:=0) 
END ; 
IF NOTCEON) THEN ALARMEC'’FLACER ‘’CARNET’'’ DANS LE #53) 
UNTIL EON 


CX$L-+X ) 
END ; 
OKON NOK KOKOK OK OHON IC KKOK OK OK HENCOK DK KOKC DK OKON KOKKKOKOKONONONOKOOKOKOKK ) 
XREMFLIRK x). 


(x TRANSFERE LE REFERTOIRE DANS LE CATALOGUE x) 
OX HKOKOKKKHCKDKCOKCOH HEC HEC DKE KO DO OKEDKCOKCOKC DC OC OO OK KO OK HONCNOKK ) 


FROCEDURE REMPLIR}; 
FROCEDURE ENTETE ; 
BEGIN 


Li=LENGTH(REFERTOIRE , VOL , NOMDISQUE) ; 
IF L0 THEN 


ÉEEGIN 
LM, NOMDISK ?=KEFERTOTRE , VOL , NOMDISQUE ; 
MESSAGE(7, ‘NOM DU DISQUE $ DSNRITE (LM: NOMDISK) }; 


t=0! 
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MESSAGE(S, ‘NUMERO DE LA EOITE ? ‘)$ENTIER(4,LM,NUMEOITE) ; 


END 
END ; 


FROCEDURE FILES} 
VAR TEMF $ELEMENT ; 


FROCEDURE ENREGISTRE(LSELEMENT ) ; 
EEGIN 
CXSTI-X) 
SEEK (GARDE ; NUMCAT ) ÿ 
GARDE #zL 
FUT(GARDE ) ; 
NUMCAT = NUMCAT+1; 
IF IORESULT<:0 THEN 
ÉEGIN 
ALARMEC'ERREUR À LA COFIE,,.‘); 
EXIT(FILES) 
END 
CXST+X) 
END} 


ÉEGIN 
IF REFERTOIRE ,VOL,NERFICHES:0 THEN 
BEGIN 
FOR Tizi TO REFERTOIRE , VOL, NERFICHE DO 
EEGIN 
TEMFS=LM; 
WITH REFERTOIRE , CATALOGCI] DO 
BEGIN 
GOTOXY (0,9) ;HRITE(EFE) ; 
MESSAGE(12;,’INCLURE LE FICHIER ‘) $WRITE(NOMFICHIER, °° CO/N) 7 ‘); 
IF OUI THEN 
BEGIN 
TEMF ,NOMFILE $ =NOMFICHIER ; 
TEMF,DATEFILE $ :DATEFICHIER ; 
MESSAGE(13,'TYFE CAs4Y) ? ‘)ÉTEMF,GENRECITI=FRENCAR(E 'A",,/Y’1);$ 
MESSAGE (16, ‘GENRE CAseY) ? ‘)STEMPFGENREC2IT$=FRENCAR(C /À’,,/Y°1); 
ENREGISTRE(CTEMF) 
END 
END}; 
END 
END ELSE ALARMEC’FAS DE FICHIER !°) 
END ; 


SEGINCX REMPLIR x) 
IF LIREREF(4) THEN 
EEGIN 
ZEROELEM(LM) ; 
ENTETE ; 


FILES ; 
CLOSE (GARDE , LOCK) $RESET(GARDE, ‘ CARNET { DONNEES ‘ ) 


END ELSE ALARMEC'ERREUR LECTEUR 1,4‘) 
IND $ 


“ROCEDURE ENREGISTRE }; 
3EGIN 

QUIT *=FALSE 

WHILE NOT QUIT DO 
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ÉEGIN 
GOTOXY(0,2);HRITE(CEFE) } 
MESSAGE (3, ’FLACER LA DISQUETTE À INCLURE DANS‘); 
MESSAGE(4,'LE CATALOGUE DANS LE LECTEUR 1 (#43)° 
MESSAGE(6, ‘QUAND TOUT EST FRET, FAITES RETURN: ’ 
GOTOXY(0,5) /WHRITECEFE) ; 
REMPLIR ; 
MESSAGE(22,'’CONTINUER ? CO/N) ‘); 
QUITS=NOT OUI 


)} 
) $FRENRETURN} 


END 
END; 
CKXXXXXMMMMMMKAEKKKKKKKKKKKKKKEKKKKEKKKEKKX ) 
(XLIRE & TRI X) 
(x FROCEDURES À AMELIORER X) 


CHOXOKOKKOKOK OK OKK OK OKOK DK DK OKON DK OKKC DK OK KKOKOKOKKOKOKKOKOKKONOKK ) 


FROCEDURE TRI; 


VAR IT $INTEGER; 
ÉEGIN 
GOTOXY(0,3);HRITE(EFE) ; 
MESSAGE(S, ‘ EDITION DU CATALOGUE GENERAL ‘) ; 
IF IMF THEN 
ÉEEGIN 
MESSAGE(10,° XXXXX SUR L’'IMPFRIMANTE XXXXX ‘) } 
WRITELN(FAFIER, ‘EDITION DU CATALOGUE GENERAL ‘ 355) $NRITELN(FAFTIER) 
END; 
TITRE ; 
FOR Tizi TO NUMCAT-1 DO 
ÉEGIN 


GET(GARDE) ; 
IF INF THEN IMPFRIMECI, GARDES) ELGSE AFFICHE(T, GARDEA) 
END ; 
MESSAGE(22,’C''"EST TERMINE, TAPEZ ÆRETURN* ‘) $ FRENRETURN 
END ; 


FROCEDURE LIKE 
VAR CHOIX {CHAR} 
ÉEGIN 
QUIT  =FÂALSE ; 
GOTOXY(0,2)$WRITECEFE) ÿ 
MESSAGE(3,’LE CATALOGUE DOIT ETRE DANS LE DRIVE 2°); 
WHILE NOT QUIT DO 
ÉEGIN 
GOTOXY(0,4) }HRITE(EFE) ; NUMLIGNE $ sé ; 
MESSAGE(4,'/EDITION COMFLETE ‘)$ 
MESSAGE(6, ‘VOULEZ-VOUS IMPRIMER ? 3) $IMF3$=OUT; 
IF IMF THEN TRAIT; 
SEEKÇ(GARDE , 1) $ 
TRI} 
IF IMF THEN TRAITFINÉ 
MESSAGE(22, ‘UNE AUTRE RECHERCHE CO/N) ? *’)$QUIT#=NOT OUT 
END 


END; 

CXTEX) 

CKOKHOKOKKOKOKOKK HOKOKOKOKOKKOKHOKHMMCHCMOMONOMEREEEEKKX ) 
(XMODIFIE X) 


CX MISE À JOUR D'UN NUMERO DU CATALOGUEX) 
CXXXXAMMEMMREREMEMMEMAMARAMENKKKKEKEKKKK ) 
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FROCEDURE MODIFIE }; 
VAR N $INTEGER; 
CH CHAR} 
BEGIN 
GOTOXY(0,4)/WRITE(EFE) SNS=0}; 
KEPFEAT 
MESSAGE (4, ‘NUMERO DU CATALOGUE À MODIFIERS ‘)$ 
ENTIER(4,N); 
UNTIL CNENUMCAT) ; 
IF Ne=0 THEN EXIT(MODIFIE) $ 
SEEK (GARDE ,N) $GET(GARDE) $LMS$=GARDES} 
NUMLIGNE $ =6 ; TITRE AFFICHECN, LM); 
MESSAGE(S8, ‘MODIFIEZ OÙ RETURN: °)$ 
MESSAGE(9,'TYFE 3°) $CHS=FRENCAR(C 'A"4,"Y", CRI); 
IFCCHESCR) THEN LM,GENRELC1]15=CH 
ELSE ÉEGIN GOTOXY(7,9);WHRITE(LM,GENREL 11) END; 
MESSAGE (10, GENRE?) $CHI=FRENCAR(C'A’,,/Y",CRID);$ 
IF CCHESCR) THEN LM.GENRELC21î=CH 
ELSE EEGIN GOTOXY(7,10) ;WRITE(LM,GENRELC21) END; 
MESSAGE(11,'’NOM DU FICHIER #°)$ 
CKXHU-X) 
FRENCHAINE(15,(C'A7,,/2°,/0".,°9", 
MESSAGE(12,’NOM DU DISQUE +°)} 
FRENCHAINE(7,(C'A4°,,2°,‘0,,9",! 
CKXHU+X) 
MESSAGE(13, NUMERO DE LA EOITE:°); 
ENTIER (4, LM, NUMEOITE ) ; 
GARDES $ELM$SEEK (GARDE , N) $ FUT (GARDE) $ 
CLOSE (GARDE , LOCK) $RESET (GARDE , CARNET ? DONNEES ‘ ) ÿ 
END ; 
CXXXKXXKXAKEKARKAEAKEKKXX FROGRAMME FRINCIFAL XXOKXOKOKKK NON KOKKOK HO KOKKOKK ) 
ÉEGIN 


71), LM,NOMFILE) $ 


+’ 1): LM: NOMDISK) $ 


FRINFO; 
OUVERTURE ; 
REPEAT 
FAGE (OUTFUT) ;HRITE (INV) }; 
MESSAGE (0 , ‘ XXX SUFER CATALOGUE xXX%°)}; 


WHRITE (NORM) ÿ 
MESSAGE(S, ‘ fJSWRITEC'IL YŸ À £',NUMCAT-1,/5% TITRES DISFONIELES, ? ); 
MESSAGE (22; ‘ECNREGISTRER:,; LOIRE; MODIFIER, FCIN ‘); 
COMS=FRENCAR(L'E’,'L',/M°,°F°1); 
CASE COM OF 
*E’#ENREGISTRKE 
‘L'ILIRE; 
‘M’ :MODIFIE 
END; 
UNTIL COM=’F°} 
SEEK (GARDE , 0) $ GARDES, NUMEOITE $ ENUMCAT $ FUT (GARDE) ÿ 
CLOSE (GARDE , LOCK) ; 
RAFFEL. 
END 
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Notions de base 


Gérard Michel 


Depuis la parution du premier numéro de POM'S, de nombreux lecteurs ont pris 
contact avec la rédaction pour exprimer leur embarras face au décalage (provisoire 
...) existant parfois entre le niveau de leurs connaissances et celui de certains 
articles publiés dans la revue. Fort logiquement, ils ont aussi formulé un souhait 

trouver dans POM'S quelques informations de base susceptibles de les guider dans 


l'exploration de leur APPLE et de faciliter l'exploitation des articles 
techniques". 

Cette revendication est légitime ! S'étant donné pour objectif d'informer, si 
possible, TOUS les utilisateurs d'APPLE, votre revue ne pouvait y rester 


insensible. Aussi tenterons nous désormais d'assurer une rubrique destinée à 
répondre aux questions fondamentales posées par les lecteurs dans cette optique. 
Nous prions simplement les "experts" de bien vouloir sauter allègrement ces 
quelques lignes, témoignages d'une époque pour eux révolue ... 


Pour ce coup d'essai, nous traiterons des problèmes touchant à la saisie des 
programmes en langage-machine et à la manipulation des fichiers correspondants. 
Vous avez été nombreux, en effet, à regretter de ne pouvoir utiliser les 
programmes de ce type listés dans la revue, faute de pouvoir les rentrer en 
machine. Pour clarifier la suite de l'exposé, il peut être utile de rappeler ici 
quelques notions (très élémentaires) concernant le système numérique à base 16 (le 
fameux HEXAdécimal !). 


Eh fait, il nous suffit de savoir que : 

1) Il comporte 16 ‘chiffres! : 0,1,..9,A(10),B(11),C(12),D(13),E(14),F(15). 

2) WXYZ en Hexa est égal à : (W*4096)+(X*256)+(Y*16)+7Z en Décimal (exemple : 
927C en Hexa égale 37500 en Décimal). 

3) A l'inverse, 37500 en Décimal vaut en Hexa 


. INT(37500/4096) = 9 
. INT(( 37500 - (9*4096))/256) = 2 
- INT(( 37500 - (9*4096) - (2*256))/16) = 7 


. 37500 - (9*4096) - (2*256) - (7*16) = 12, soit C 
}) Par convention, les nombres HEXA sont précédés d'un "$". 


1. Saisie d'un programme en langage-machine (codes hexadécimaux). 





Prenons l'exemple du petit programme présenté par J.-L. Meillaud. La marche à 
suivre se décompose ainsi 


a) Sortir du BASIC pour rentrer dans le moniteur. Pour cela, tapez CALL-151 
[Return]. Une "*" apparait, vous êtes en mode moniteur. Attention, cet animal 
étrange ne comprend que l'Hexadécimal ! 


b) Pour saisir les instructions, la séquence est "Adresse (en HEXA, bien sûr!)" 
puis ":" puis "codes hexadécimaux des instructiôns". Vous taperez ainsi : 


1848: C9 81 FO 01 60 AD 00 CO [Return] 
1850: 10 FB ... 


- 


1860: A9 DF ......... 60 [Return] 
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AN AENTE 
iHfuste à 
! HHAANE 

DRE UE HAUTS 


HARR 





L'ORDINATEUR PERSONNEL 
DE M" LE DIRECTEUR DES VENTES. 


Apple, c'est d'abord un nouveau concept. Celui 
de la relation individuelle et directe entre l'homme et sa 
machine. Un concept qui ouvre une troisième voie entre 
rien du tout et l'informatique de millionnaire. Apple, 
c'est un outil personnel aussi facile à utiliser qu'une voi- 
ture, aussi léger et peu encombrant qu'une simple 
machine à écrire et aussi peu coûteux qu'une photo- 
copieuse. Un outil qui vous simplifie la vie en diminuant 
la paperasse qui vous encombre, efficace et rapide 
dès qu'une décision s'impose. 

Apple vous aide à répondre à des questions de 
type “qu'arriverait-il si2”, traite vos problèmes de ges- 
tion planification, prévisions, budget let met en forme et 
imprime vos lettres et vos rapports. Apple est un outil 
versatile qui fonctionne sur une vaste gamme de pro- 
grammes que vous soyez avocat ou médecin, respon- 
sable des ventes ou du marketing, comptable ou financier. 


/ 
apple 
; L'ordinateur personnel 


Intéressé, un peu sceptique ou dubitatif … Lorsque 
votre revendeur Apple local aura résolu devant vous 
quelques-uns de vos problèmes, où vous aura fait utiliser 
vous-même un programme de planification ou une 
analyse sous forme de graphique couleur, vous aurez 
compris l'intérêt d'avoir à portée de la main la puissance 
de l'ordinateur personnel. 

Etvous commencerez à penser à votre Apple. 

D ŒUER CRE CUS GS USED GUN GRR GRIS CONS CNE GR CRE CUERS GS OUND GENE OR © Cum 
Pour obtenir une information complète sur les systèmes 
d'ordinateur Apple II et Apple IIL, veuillez s’il vous plaît 
retourner ce coupon à : SEEDRIN SARL. 

Avenue de l’Océanie, Z.I. de Courtabœuf, 91940 Les Ulis 


Nom 


DA 


Société L 








Fonction … - 


ACESSE = 





Téléphone ___ . En «x | 
D CS GES CUS ŒURS GS CUS CUS GS CUS CUS CUS CUS CUS ŒUD GS CD CS OR 


Si vous voulez lister votre programme, tapez 
1848.1867 [Return] (de façon générale, adresse début .adresse fin). 


c) Pour retourner au BASIC, tapez 3D0G [Return]. Le "prompt" du BASIC réapparait. 
2. Sauvegarde d'un programme sur disquette après retour au BASIC. 
La syntaxe est alors la suivante 


.  BSAVE NOM, A$X, L$Y où X désigne l'adresse de départ du programme en HEXA, Y la 
longueur du programme (nombre d'octets) exprimée en HEXA, et NOM tout simplement 
le nom que vous désirez donner au programme. 

. ou encore BSAVE NOM, AX, LY où X et Y sont exprimés en décimal. 


L'adresse de départ ne pose pas de problème; seule la longueur réclame quelque 
attention. Si vous ne voulez pas vous livrer aux joies de l'arithmétique 
hexadécimale, le plus simple est encore de raisonner en décimal. Ainsi, dans notre 
exemple (trivial) 

. Adresse de départ : 1848 HEXA = 6216 en décimal 

. Adresse de fin : 1867 HEXA = 6247 en décimal 

. Longueur : 6247-6216+1-32 (vous pouvez aussi compter les octets ligne à ligne 
...). N'oubliez pas de rajouter un à la différence : c'est le fameux problème des 
intervalles entre les arbres... 

. Sauvegarde : BSAVE NOM, A6216, L32 


3. Chargement d'un programme à partir de la disquette. 


II vous suffit de taper BLOAD NOM. L'adresse de départ et la longueur ont été 
mémorisées au moment de la sauvegarde. Si vous désirez les retrouver, tapez, après 
le BLOAD : 

. Pour l'adresse : PRINT PEEK(4H3634) + 256 * PEEK(43635) 
. Pour la longueur : PRINT PEEK(43616) + 256 * PEEK(43617) 
Les deux valeurs vous seront données en décimal. 


De même, BRUN NOM permet de charger le programme NOM en mémoire et de lancer son 
exécution (comme le RUN du BASIC). 


Une fois le programme chargé, si vous voulez vérifiez les codes hexadécimaux, 
entrez dans le moniteur et tapez, comme ci-dessus, "adresse début .adresse fin" 
(adresses hexadécimales toujours). 


Enfin, supposons que vous ayez sur disquette un programme NOM en langage-machine 
(routine de nettoyage mémoire, routine de tri ...), commençant à l'adresse 37000 
(en décimal), et que vous souhaitiez l'utiliser dans le cours d'un programme 
BASIC. Les choses pourraient se présenter ainsi 


10 D$=CHRS$( 4) 
20 HIMEM: 36500 (pour protéger la routine en langage-machine) 
30 PRINT D$'"BLOAD NOM, S6, D1" 


1000 CALL 37000 (exécution de la routine en langage-machine) 


Suite du programme BASIC 
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Conversion Pascal/BASIC/Pascal 


Gilles Mauffrey 





1. Principes généraux. 


Il était utile de pouvoir regrouper sur une même disquette pour les lecteurs de 
Pom's des programmes d'origines diverses : Pascal ou BASIC. Le programme présenté 
ici répond à cet objectif. Avant de décrire brièvement le programme, nous allons 
mettre en évidence les principales différences entre le DOS 3.3 et le Pascal 
Operating System (P.0.S.). 


Tout d'abord le DOS raisonne en piste et secteur, tandis que le POS ne connait 
théoriquement que les blocs de 512 octets. Un bloc correspond en fait à deux 
secteurs consécutifs. De plus la sectorisation soft des pistes est différente 
(voir "Beneath Apple DOS"): 


- pour le DOS 3.3, les secteurs sont numérotés 0, 13, 11, 9, 7, 5, 3, 1, 14, 12, 
10.78, «6, 4,125: 15: 


- pour le POS, la numérotation est O0, 2, 4, 6, 8, 10, 12, 14, 1, 3, 5, 7, 9, 11, 
13, 15. 


Toutefois, le DOS 3.3 permet de lire une disquette Pascal, puisque la table de 
sectorisation se trouve aux adresses $BFB8 et suivantes. 


L'implantation des "“directorys" est également différente. Sur une disquette 
Pascal, le directory commence au bloc 2 et se termine au bloc 6; chaque 
enregistrement (fichier ou en-tête) occupant 26 octets. Pour le DOS 3.3 le 
directory débute en piste 17 secteur 0, chaque fichier occupant 35 octets. 


Une autre différence fondamentale concerne l'implémentation des fichiers eux- 
mêmes. En DOS 3.3, les fichiers ne sont pas nécessairement sur des secteurs 
consécutifs, tandis que le POS écrit les fichiers sur des blocs consécutifs, ce 
qui simplifie beaucoup la lecture de ces fichiers en assembleur. 


2. Description des enregistrements "fichier" du directory Pascal. 





Comme il a été dit plus haut, chaque enregistrement du directory comprend 26 
octets; nous ne décrirons ici que les enregistrements concernant les fichiers. 
Traduisant la description de M. Crimont (Pom's 2), nous obtenons: 


= Bloc de début de fichier : 2 octets (exemple bloc 6 : 06 00) 

- Bloc de "fin" de fichier : 2 octets (en fait c'est le bloc de début du fichier 
suivant) 

- Type du fichier : 2 octets 

- Nom du fichier :16 octets (1 octet pour la longueur du nom et 15 octets pour le 


nom) 
- Nombre d'octets inutilisés dans le dernier bloc: 2 octets (toujours 00 02 car ce 


bloc est le début du fichier suivant) 
- Date de création du fichier : 3 octets (1 octet pour la longueur 02 et 2 octets 


pour la date elle-même 01 02) 


année jour {mois 
Lg |, | : 7 bits‘ pour l'année, 5 pour le jour et 4 pour le mois 


a 
02 01 
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3. Déroulement du programme. 


Pour simplifier l'écriture du fichier sur la disquette BASIC, nous avons utilisé 
la commande BSAVE du DOS. Ceci a pour inconvénient de limiter la longueur des 
fichiers transportables par ce programme; cependant ceci ne s'est pas avéré génant 
pour l'utilisation que nous en avons faite. 


Après avoir demandé le nom du fichier Pascal à transférer et le nom du fichier 
"BASIC" transféré, le proœramme vérifie l'existence du fichier sur la disquette 
Pascal; en cas de fichier inexistant, le programme s'arrête. Une fois trouvé, le 
fichier est chargé en mémoire à partir de l'adresse $2000, puis chargé sur la 
disquette "BASIC". 


Quatre sous-programmes sont utilisés : 


- Le sous-programme PRERWT est appelé avant chaque appel à RWNTS, pour initialiser 
la table. 

- Le sous-programme TABPS charge la sectorisation Pascal. 

- Le sous-programme TABDO charge la sectorisation DOS. 

= Le sous-programme CALPSE transforme le numéro de bloc en numéros de piste et de 
secteur. 


Nous n'analyserons pas ici le programme permettant de transférer le fichier 
"BASIC" sur une disquette Pascal dans la mesure où la démarche suivie est 
pratiquement la même. Les lecteurs courageux pourront cependant l'amélorier en 
permettant d'introduire la date, puisque ce programme prend la date du dernier 
fichier existant sur la disquette Pascal, ce qui peut poser des problèmes en cas 
de diquette vierge. 





SOURCE FILE+ FASCEAS 
mem NEXT OEJECT FILE NÂME IS FASCEAS,OEUJO 


0700: 1 OKG  #$900 

FDS8E ! 2 CROUT EQU  #FD8E X <RETURN: 
FDED À 3 COUT EQU  S$FDED x ECRITURE ECKRAN 
FD35 À 4 KRDCHAR EQU  #FD3$5 X LECTURE CLAVIER 
FC9Ci 5 CLREOL EQU  $FC9C 

FCS8 6 HOME EQU  $FC58 

03F2: 7 RESET EQU  #3F2 

0900! 8 x 

0900: 9 X FARÂAMETRES FOUR RATS 

0900! 10 % 

0000! 11 DSECT 

0000! 12 KFLIOE DS 1 

0001! 13 KFLSLT DS 1 

0002! 14 RFLDRV DS 1 

0003: 15 RFLVOL DS 1 

0004! 16 KFLTRK DS 1 

0005: 17 KFLSEC DS 1 

0006! 18 KFLDCT DS 2 

0008: 19 KFLEUF DS 2 

000: 20 RPFLSIZ DS 2 

000C! 21 RFLCMD DS 1 

0001: 22 READ EQU #01 

0002! 23 WRIT EQU #02 

00 0D: 24 KPFLCRD DS 1 

000E! 23 KFLTUL DS 1 

000F: 26 KRFLFSL DS 1 

0010! 27 KFLFDR DS 1 

07900! 28 DEND 

0900: 29 X 

0900! 30 x UTILISATION DE LA FÂGE ZERO 
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0900! 
0000! 
0002! 
0003! 
0004: 
0005! 
0007: 
0008: 
0048! 
0900! 
0900! 
0900! 
2000: 
18E3! 
D3D9 
BFE8 À 


2900! 

0900! 

1900: 

090020 
1703:A9 
1705:85 
1707:A2 
1909:ED 
190C:C9 
190E:F0 
191020 
1913:E8 
1914:D0 
1716: A2 
1918:20 
1716109 
171D:D0 
191F:E0 
1921:F0 
1923120 
1926:CÂ 
1927? 40 
I92A:C9 
192CiF0 
92E:C9 
930:90 
932129 
934:49 
93619D 
39:49 
93E:20 
9S3E:E8 
93F:E0 


941:D0 : 


943: 4C 
946:8À 
947: 8D 
944:20 
94D:20 
950A2 


9523:ED 


FC 


0C 


FD 


09 


0C 


FD 


x 

FTK 
FISTE 
SECTEUR 
CMD 
DRIVE 
HEUF 
TEMF 
FREG 

x 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


x AUTRES ADRESSES 


x 
EUFFER 
LOCFKL 
RATS 
SECDES 


x 
x DEEUT 
x 
CONVER 


ECRI 


ENTREE 
MAJF 


INEUF 


ADDEUF 


FINF 


SUTDO 


EQU $#2000 
EQU  $3E3 
EQU  #+3D9 
EQU  $EFES 
FROGRAMME 
JSK HOME 
LDA  #<EUFFER 
STA HEUF 
LDX #00 
LDA MESS,X 
CMF ‘3 
EER ENTREE 
USR COUT 
INX 

ENE  ECRT 
LDX #0 

JSK  RDCHAR 
CMF +588 
ENE INEUF 
CFX #00 
EEQ  MAJF 
JSR COUT 
DEX 

JMF  MAJF 
CMF #$8D 
ÉER  FINF 
CMF #$E0 
ECC  ADDEUF 
AND  #$DF 
EOR  #+#$60 
STA FICH,X 
EOR +$60 
JSR COUT 
INX 

CFX #15 
ENE  MAJF 
UJUMF  ERKI 
TXA 

STA LFIC 
JSK  CLREOL 
JSK  CROUT 
LDX #0 

LDA MEDO,X 


x FOINTEUR GENERAL 


x À REMETTRE À 0 ÀFRES KHTS 


XCHERCHE L'ADRESSE DE LA TAËLE FOUR KW 


XDEFINITION 


0955509 
0957:F0 
0959320 
09SCIE8 
095D$4C 
0960: A2 
0962:20 
07945:C9 
0947:D0 
0969%E0 
096E:F0 
096D? 20 
0970$CA 
0971540 
097409 
0976:F0 
0978:C9 
0974190 
0970129 
097E$ D 
098120 
0584:E8 
0985:E0 
0987:D0 
0989340 
098C:8À 
09 8D ? 8D 
0990:20 
0993: 20 
09941 À2 
0998: ED 
099E?C9 
099DiF0 
099F:20 
0SA21E8 
0943340 
05A6:20 
D9A9iA9 
09AE? 20 
0PAEi C9 
09E0 DO 
092$ 
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FD 


09 


FD 


09 


FD 


“SOFT" 


DES 


SADO 
ENDOS 


ACDOS 


ADDOF 


FINDO 


ECRMO 


CMF 
EEG 
JSK 
INX 
JMF 
L.DX 
JSK 
CMF 
ENE 
CFX 
ÉEQ 
JSK 
DEX 
JMF 
CMF 
ÉEQ 
CMF 
ECC 
AND 
STA 
JSK 
INX 
CPX 
ENE 


.JMF 


TXA 
STÂ 
JSK 
JSK 
LDX 
LDA 
CMF 
EEQ 
JSK 
INX 
JMF 
JSK 
LDA 
JSK 
CMF 
ENE 


SECTEURS DOS 3, 





RDCHAK 
+588 
ACDOS 
#+$0 
ENDOS 
COUT 


ENDOS 
#$6D 
FINDO 
#$E 0 
ADDOF 
#$DF 
FIDO,Xx 
COUT 


+30 
ENDOS 
ERR1 


092! 

09E2: 

092$ A2 
09E4:ED 
09E:7 ? 9D 
0YÉAîES 
09EE EE 0 
09ED DO 
09EF $ 

09EF à? 

O9E:F ? 

09EF#:20 
09C2:A9 
0904185 
09C6tA9 
09C8:85 
19CAtA9 
09CC:85 
09CE$ A9 
09D0:85 
09D2:20 
09D5! 

09D54 

09D5* 

09D5:20 
09D8:20 
09DE A9 
09DD:85 
09DF ? AD 
09E2:0À 
09E3:85 
09ESE6 
09E7 AS 
09E95C9 
09EE{D0 
09ED A9 
09EF ? 85 
09F1$E6 
09F3îtE6 
09FS53A9 
09F7:85 
09F9520 
09FC$20 
09FF:20 
0402%A9 
040485 
A6 C6 
0408: AS 
0A0AD0 
AOC? A9 
0A0E 85 
0A10$A9 
041295 
DAÎA4ÎAE 
0417:8A 
04A18:18 
DAL7IAS 
DAlE: 69 
0A1D:85 
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EF 
0D 


0E 


0E 


L.DX 
LDA 
STA 
INX 
CFX 
ENE 


x RECHERCHE 


JSK 
LDA 


X TRAITEMENT 


JSK 
JSK 
LDA 
STA 
LDA 
ASL 
STA 
INC 


SAUVEGARDE DE LA TAËLE DUS 


#0 
SECDES , X 
DOSTAE, X 


#16 
L.OOF 


FREG 
EUFFER+2 
Â 

TEMF 
SECTEUR 
SECTEUR 
#$10 


SECTEUR 
FISTE 
HEUF 
#READ 
CMD 
FRERHT 
LOCFEL 


+<EUFFER 
HEUF 
H:EUFFER 
HEUF 1 


EUFFER+S 10 


HEUF--1 
+06 
HEUF 1 
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DES FOINTEURS FASCAL 


0C 


0C 


0C 


FD 


0C 


FD 


0Â 
0Ë 
03 


#0 


#26 
HEUF 1 
HEUF 1 
CNF 
HEUF 


TROUVE 
LF3 


LF2 


CROUT 
+0 
FASFI; X 
4’; 
FINI 
COUT 


ECFÀ 
TAEDO 
(RESET ) 


HEUF- 1 
#6 
HEUF- 1 


0AG9YSEO 02 225 ECS  ADKI 
DA&ESCé 07 226 DEC  HEUF 
0A6DSAO 00 227 ADKI LDY #0 

DAGFIEL 06 228 LDA  (CHEUF-1),Y 
0A71:8D 21 0D 229 STA DEFFA 
04A74:C8 230 INY 

0A7S#E1 06 231 LDA  CHEUF-1),Y 
04A77:8D 22 0D 232 STA DEFFÂA+1 
DA7AICS 233 INY 

(A7EÏE1 06 234 LDA  CHEUF-1),Y 
0A7D?8D 23 0D 235 STA FIFFA 
0AS0?C8 236 INY 

0AS1:E1 06 237 LD  CHEUF-1),Y 
0A83:8D 24 0OD 238 STA FIFFA+I 
0486 À 239 *x 

0A8Sé: 240 x LES FOINTEURS DE DEEUT ET FIN DE FICHIERS SONT CONSERVES 
0A86 241 X 

0486:18 242 CLC 

0A87 A5 06 243 LDA  HEUF-1 
048969 16 244 ADC #22 
0ASE?85 06 245 STA HEUF-1 
0ASDi90 02 246 ECC KREST 
DASFÉE6é 07 247 INC HEUF 
DAY1:A0 00 248 REST LDY #0 

0A93ÉE1 06 249 LDA  CHEUF-1),Y 
0A9S5:8D 45 0D 250 STA RESFA 
14A98:C8 251 INY 

0A99iE1 06 252 LDA  (CHEUF-1),Y 
0A9E#8D 46 0D 253 STA KRESFA+1I 
0A9E 254 %X 

DA9YE 255 x CALCUL DES SECTEURS ET FISTES 
DAŸE à 236 X 

DA9ES A2 00 2537 LDX #0 

0AA020 Eli 0E 258 JSK  CAÂALFSE 
GAAGIAZ2 02 259 LDX #2 

0AÀS+20 El 0H 260 USK  CÂLFSE 
DAA8S:38 261 SEC 

AA AD 23 0D 262 LDA FIFFA 
DAÂCÉED 46 0D 263 SEC RESFÂ+1 
DAAF:8D 23 0D 264 STA FIFFA 
DAË2:E60 0E 265 ECS  FLULO 
DARA4ÎCE 24 0D 266 DEC FIFFÂA+1 
DAËE7 A9 0F 267 LDA #$0F 
DAH9:2D 23 0D 268 AND FIFFA 
DARCI8D 23 0D 269 STà FIFFA 

DAEF À 270 % 

DAEF À 271 *x ECRITURE DU FROGRAMME À FARTIR DE 42000 
DAEF À 272 x 

DAËHF3A9 20 273 FLULO LDA  #<EUFFER 
0AC1:85 07 274 STA  HEUF 
0AC3#AD 21 0OD 275 LDA  DEFFA 
DAC6i85 03 276 STA SECTEUR 
DACBSAD 22 0D 277 LDA DEFFA+I 
DACE:85 02 278 STA FISTE 
DACD#A4Y 01 279 LOO3 LDA  #READ 
0ACFÉ85 04 280 STA CMD 
0AD1:20 94 0 281 JSK  FRERHT 
0AD4:20 E3 03 282 JSR  LOCFKL 
0AD7:20 D9 03 283 JSK  KRHTS 
DADA# A9 00 284 LDA #0 
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DADC:85 
DADESE6 
AE 0 ? AS 
0AE2:C9 
AE 4:D0 
AE 6 $ A9 


. DAE8: 85 


DAEAîE6 
DAEC $ AS 
0AEE ? CD 
04F1$90 
AF3:F0 
DAFSSE0 
DAF7 + AS 
0AF9: CD 
0AFC?90 
DAFESE0 
0E00Eé6 
0E02:90 
0E04%E0 
0E06:20 
0E09:20 
0EOC AZ 
0E QE ; ED 
0E11:C9 
0E13:F0 
0E15$20 
0E18:E8 
0E1944C 
0E1CiA2 
0ELE $ ED 
0E21:20 
0E24:E8 
 0E25:E0 
 0E27:90 
0E29 A9 
0E2E:20 
DE ZE $ A9 
0E30:20 
0E33:A9 
0E35:20 
0E38:A9 
0ESA:20 
0ES3D ; A9 
0ESF #20 
0E42:A9 
0E 44; 20 
0E 47: A9 
0E49:20 
0E4Ci A9 
0E4E:20 
0ES51:38 
0ES2 3? AS 
0ES4:E9 
0ES6:20 
0659: A9 
0ESE 20 
DESE ? A9 
0E4640:20 


4O 


0D 


0D 


FD 


FD 


LAEÀ 


VERSEC 


FREFT1 


FREEAS 


LOOS 


SUT1 


3 LOO6 


FREG 
SECTEUR 
SECTEUR 
#$0F 


SECTEUR 
FISTE 
FISTE 
FIFFA+1 
FREFI1 
VERSEC 
FREEAS 
SECTEUR 
FIFFA 
FREFI1 
FREEAS 
HEUF 


$FDDA 


HEUF 
#<EUFFER 








0E43:A9 
0E&S 20 
0E48: A9 
0EéAS 20 
0E6D $ 20 
0E7 0 $ 6C 


05734 

0E73: 

0E73: 

0E73; A2 
0E75420 
0E78;20 
0E7E? A9 
0E7D:20 
0E 80 ; ED 
0E83:C9 
0E85:F0 
0E67:20 
0ESAIES 
0ESE ? 40 
0ESE ? 20 
0EY1:6C 


0:94: 

0E94: 

0694: 

0E%4: 20 
0E:97 84 
0E99:85 
0E9ESAS 
DE SD A0 
DESFi91 
DEA1 SAS 
EA3: A0 
0EAS391 
EA7 A0 
DE A9 A9 
DEAESYL 
0EAD:CS 
DEÂAE 5: AS 


| 0EH0$91 


0EE2 $ AS 
0EE4 $ AO 
0EÉéi91 
0EE:8 $ A9 
DEE:A ? A0 
0EHC:I91 
0EFE $ AS 
0EC0 ? AO 
0EC2$91 
0EC4:60 
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FD 
FD 
FD 
03 


344 
345 
346 
347 
348 
349 


351 
352 
333 
354 


355 


356 
357 
358 


x 


LDA 
JSK 
LDA 
JSK 
JSK 
JMF 


#°D 
COUT 
+'2 
COUT 
CROUT 
(RESET ) 


X SOUS ROUTINE ERREUR 


x 
ERR1 


ERKC 


FINER 


x 


x FREFARATION DE RHTE£ 


x 
FRERHT 


JSK 
STY 


LOCFRKL. 
FTR 
FTR+1 
FISTE 
FRFLTRK 
CFTRI,Y 
SECTEUR 
FRPFLSEC 
CFTRI,Y 
FRFLEUF 
HeEUFFEE 
CFTR),Y 


HEUF 
CFTR),Y 
CMD 
FRFLCMD 
CFTRI,Y 
#0 
#FRFLUOL. 
CFTRI,Y 
DRIVE 
ÆRFLDRU 
CFTRI$Y 


0ECS: 
ECS à 
ECS 4: A2 


0EC7$ED : 


DECA# 9D 
DECD$SES 
0ÉCESEO 
0ED0 DO 


0ED3 A2 
0EDS $ ED 
0ED8$9D 
0EDEIES 
0EDC?E0O 
0EDE # DO 
0EE 0 # 60 


0EE 1: 

DE: 1! 

OEE: 1 ? 

0EE: 1: A0 
0EE.3: 18 
0EE4:A9 
0ÉE6?7D 
0EE9 + 9D 
0EEC+:90 
0EEE?FE. 
0EF1!1E 
0EF4t1E 
0EF7:90 
0EF9tFE 
0EFC:ED 
0EFF:29 
0C01:18 
0CO2t6A 
0C03:6À 
0C04:6À 
0C0O5t6À 
0C06:18 
0C07:7D 
0COA:9D 
0COD+ED 
0C10:29 
0C12:9D 
0C15:60 


0C16: 
Clé: 
Clé: 


00 
35 


E8 


10 


F5 


# © NN FN 
ee Te N PS 


0D 
EF 


0D 
EF 


0D 
0D 
0D 


0D 


397 X 


398 x MISE EN FLACE DE LA SECTORISATION FASCAL 


399 TAEFS 
400 E1 
401 

402 

403 

404 

405 


407 X 


L.D X 
LDA 
STA 
INX 
CFX 
ENE 
RTS 


#0 
FASTAE, X 
SECDES , X 


#16 
E1 


408 x MISE EN FLACE DE LA SECTORISATION DOS 3,3 


409 %x 

410 TAEDO 
411 E2 
412 

413 

414 

415 

416 


418 X 


419 x CONVERSION 


420 % 

421 CALFSE 
422 

423 

424 

425 

426 

427 

428 EOUCO 
429 


447 X 


L.DX 
LDÀ 
STA 
INX 
CFX 
ENE 
RTS 


L.DY 
CLC 
L.DA 
ADC 
STA 
ECC 
INC 
ASL. 
ASL. 
ECC 
INC 
LDA 
AND 
CLC 
ROK 
ROK 
RKOK 
KOK 
CIC 
ADC 
STA 
LDA 
AND 
STA 
RTS 


#0 
DOSTAE ; X 
SECDES » X 


+16 


E2 


SECTEUR-ELOC 
#0 


#02 
DEFFÀ , X 
DEFFA, X 
EOUC0O 
DEFFA+1,X 


DEFF'AÀ , X 


DEFFA+1,X 
DEFFÂ+1, X 
DEFF'AÀ , X 
F$OF 
DEFFAÀ, X 


448 x MESSAGES ET CONSTANTES 


449 Xx 
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y2 


x900,D4D 
0900- 20 
0908- 00 
0910- 20 
0918- 20 
0920- 00 
0928- 18 
0930- 90 
0938- 0C 
0940- 0F 
0948- FF 
0950- A2 
0958- 07 : 
0960- À2 
0968- Ô0E 
0970- CÂ 
0978- C9 
0980- 0D 
0988- D9 
0990- 20 
0998- ED 
09A0- ED 
0948- FD 
09E0- DO 
09E8- 35 
09C0- CS 
09C8- 85 
09D0- 85 
09D8- 20 
09E0- 02 
09E8- 03 
09F0- 03 
09F8- 04 
0A00- D9 
0A08- AS 
0A10- A9 
0A18- 18 
0420- 00 
0428- 90 


450 MESS ASC 'NOM DU FICHIER PASCAL : ; 
451 MEDO ASC 'NOM DU FICHIER "NORMAL" : 
452 ERMES ASC 'NOM TROP LONG; 


453 MODEMP ASC 'INSERER LA DISQUETTE PASCAL DANS LE DRIVE 1, La 
DISQUETTE BASIC DANS LE DRIVE 2, PUIS APPUYER SUR "RETURN" ; 
454 PASFI ASC 'CE FICHIER N EST PAS SUR CETTE DISQUETTE : 


455 FICH ASC " 
156 LFIC DFB O 
457 FIDO ASC 
158 LFID DFB O 
459 NFPAS DFB O0 
460 DEFPA DFB O,0 
461 FIFPA DFB 0,0 











462 PASTAB DFB O, 2,4, 6,8, 10, 12, 14,1, 3,5,7,9,11,13, 15 
163 DOSTAB DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
164 RESPA DFB 0,0 
165 BLO ASC "BSAVE; 
[REcArirutarion | 0430 OC 
0A38- C8 
58 FC A9 20 85 07 A2 DA40- Cé 
ED 16 0C C9 EE F0 06 1e 06 
ED FD E8 DO F3 A2 00 DAS pE 
35 FD C9 88 DO 0E E0 DAS8- E8 
FO F5 20 ED FD CA 4C DA6O- F2 
09 C9 8D F0 18 C9 E0 DA68- 06 
02 29 DF 49 80 9D F0 0A70- 06 
49 80 20 ED FD E8 E0 0A78- 22 
DO D5 4C 73 0E 8A 8D DA8O- C8 
0C 20 9C FC 20 8E FD 0A88- 06 
00 ED 2F 0C C9 EE F0 0A90- 07 
20 ED FD E8 4C 52 09 0A98- C8 
00 20 35 FD C9 88 DO DAAO- 20 
E0 00 F0 F5 20 ED FD DAAB- 38 
4C 62 09 C9 8D FO 14 DAED- 23 
E0 90 02 29 DF 9D 00 0AËS- OF 
20 ED FD E8 E0 1E DO DACO- 20 
4C 73 0Ë 8A 8D 1F 0D DAC8- AD 
9C FC 20 8E FD A2 00 DADO- 04 
59 0C C9 EE FO 07 20 0AD8- D9 
FD E8 4C 98 09 20 8E DAEU- AS 
A9 00 20 35 FD C9 8D DAES- 85 
F7 A2 00 ED E8 EF 9D DAFO- OD 
0D E8 E0 10 DO F5 20 DAF8- 03 
0E A9 00 85 02 A9 04 0E00- Eé 
03 A9 01 85 05 A9 01 0E08- 0Ë 
04 20 94 0Ë 20 E3 03 0E10- 0D 
D9 03 A9 00 85 48 AD 0É18- ES 
20 0À 85 08 Eé 03 A5 0E20- 0D 
C9 10 DO 06 A9 00 85 0E28- FS 
Eé 02 Eé 07 A9 01 85 0E30- 20 
20 94 0E 20 E3 03 20 0E38- A9 
03 A9 00 85 48 Cé 08 0E40- DA 
08 DO D9 A9 20 85 07 0É48- CC 
00 85 06 AE 10 20 84 BST PE 
A5 06 469 06 85 06 A0 0ESS-— FD 
18 A9 1A 65 06 85 06 0E60- 20 
DE68- A9 
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0E70- 6C F2 03 À2 00 20 8E FD 0Cé0- A0 CC C1 A0 C4 C9 D3 D1 


0E78- 20 8E FD A9 87 20 ED FD 0Cé8- D5 C5 D4 D4 C5 A0 DO C1 
0E80- ED 4A OC C9 EE FO 07 20 0C70- D3 C3 Ci CC A0 C4 Ci CE 
0Ë88- ED FD E8 4C 80 0E 20 8E 0C78- D3 A0 CC C5 A0 C4 D2 C9 
0E90- FD 6C F2 03 20 E3 03 84 0C80- Dé C5 A0 El AC A0 CC Ci 
0E98- 00 85 01 À5 02 A0 04 91 0C88- A0 C4 C9 D3 Di D5 C5 D4 
0EAO- 00 A5 03 A0 05 91 00 A0 0C90- D4 C5 A0 C2 C1 D3 C9 C3 
0EAB- 08 A9 00 91 00 C8 A5 07 0C98- A0 C4 Ci CE D3 A0 CC C5 
0EEO- 91 00 A5 04 A0 0C 91 00 0CAO- A0 C4 D2 C9 Dé C5 A0 EZ 
0EEB- A9 00 A0 03 91 00 A5 05 0CAB- AC A0 DO D5 C9 D3 A0 C1 
0ECO- A0 02 91 00 60 AZ 00 ED 0CE0- DO DO D5 D9 C5 DZ A0 D3 
0EC8- 25 0D 9D E8 EF E8 E0 10 0CE8- D5 D2 A0 A2 D2 C5 D4 D5 
0ED0- DO F5 60 AZ 00 ED 35 0D 0CCO- D2 CE A2 A0 EE C3 C5 A0 
0ED8- 9D E8 EF E8 E0 10 DO F5 0CC8- Cé C9 C3 C8 C9 C5 D2 A0 
0BE0- 60 A0 00 18 A9 02 7D 21 0CDO- CE A0 C5 D3 D4 A0 DO C1 
0EE:8- 0D 9D 21 0D 90 03 FE 22 0CD8- D3 A0 D3 D5 DZ A0 C3 C5 
0EFO- 0D 1E 22 0D 1E 21 0D 90 0CE0- D4 D4 C5 A0 C4 C9 D3 Di 
0EF8- 03 FE 22 0D ED 21 0D 2 0CE8- D5 C5 D4 D4 C5 A0 EE A0 
0C00- F0 18 64 6A 6À 6A 18 7D 0CFO- AD AD A0 A0 A0 AO A0 A0 
0C08- 22 0D 9D 22 0D ED 21 0D 0CF8- A0 A0 A0 A0 A0 A0 A0 00 
0C10- 29 OF 9D 21 0D 60 CE CF 0D00- A0 AD A0 A0 AO A0 A0 A0 
0C18- CD A0 C4 D5 A0 Cé C9 C3 0D08- A0 AD A0 A0 AD A0 A0 A0 
0C20- C8 C9 C5 DZ A0 DO C1 D3 0D10- A0 ADO A0 A0 AD A0 A0 A0 
0C28-:C3 Ci CC A0 EA A0 EE CE 0D18- A0 AD A0 A0 AO A0 A0 00 
0C30- CF CD A0 C4 D5 A0 Cé C9 0D20- 00 00 00 00 00 00 02 04 
0C38- C3 C8 C9 C5 DZ A0 AZ CE 0D28- 06 08 0A 0C 0E 01 03 05 
0C40- CF D2 CD Ci CC A2 À0 EA 0D30- 07 09 0Ë 0D 0F 00 00 00 
0C48- A0 EE CE CF CD A0 D4 DZ 0D38- 00 00 00 00 00 00 00 00 
0C50- CF DO A0 CC CF CE C7 EE 0D40- 00 00 00 00 00 00 00 84 


0C58- 40 C9 CE D3 CS D2 CS D2 0D48- C2 D3 C1 Dé C5 EE 


Une informatique de gestion adaptée aux besoins des gestionnaires et réalisée par des gestionnaires, 









ETUDIE e opportunité d’utilisation de l’outil micro-informatique 
e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l’entreprise 











FORME e formation à l’utilisation de la micro-informatique 
REALISE e réalisation de programmes à la demande 


LIVRE e livraison de systèmes clés en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 







Nous sommes gestionnaires avant d’être informaticiens. L'informatique doit s’adapter à l’homme, et non l'inverse. 
L'outil micro-informatique répond particulièrement bien à ce souci de qualité et d'efficacité du travail, 
dans des conditions conviviales. 
Nombreuses références e n informatique traditionnelle - divers matériels - et en informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels. 







log MG :.: Centre La Châtaigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tél : (3) 918.13.07 
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Communication grâce à l'Apple 


Bruno Estrangin 





1-Introduction 


Nouveau venu à l'informatique, mais ancien radio-amateur, j'ai été très vite tenté 
par les possibilités de communication de l'APPLE. Parmi des objectifs variés 
accéder à des moyens informatiques supplémentaires, échanger des textes ou des 
programmes, interroger des banques de données..., ce qui m'intéresse le plus 
vivement est la perspective d'éviter toute reprise manuelle afin de profiter de 
toute la souplesse de l'informatique. 


D'un point de vue non technique, communiquer avec un micro-ordinateur, c'est aussi 
expérimenter de nouvelles relations sociales. Ainsi, avec une certane naïveté de 
néophyte, j'ai entrepris de communiquer. C'est passionnant et ça marche ! J'espère 
que les informaticiens spécialistes feront connaître ce domaine avec autant de 
moyens que pour le BASIC, le Pascal... 


Je présente ci-dessous les réalisations suivantes 

échange de textes en environnement Pascal entre un APPLE et une machine 
bureautique RANK XEROX 850 pleine pæe, 

utilisation de la même machine bureautique en tant que terminal, l'APPLE servant 
d'ordinateur, 

accès à un réseau de temps partagé et au réseau MICRODIAL. 


Je n'ai pas eu l'occasion de communiquer directement avec un autre APPLE, mais 
cela ne présente a priori aucune difficulté (entre APPLE, il est plus facile de se 


comprendre !). 


2-Matériel utilisé 





2-1 Coté APPLE 

- Apple II, 48K avec carte langæe, 

- deux drives (il est possible de n'en utiliser qu'un), 

- carte de communication : APPLE II COMMUNICATIONS INTERFACE CARD [A2B0003X], 
- modem Anderson Jackobson AJ 311. 


2-2 Coté bureautique 


- Rank Xerox 850 pleine pæe, 
- modem Anderson Jackobson AJ 211. 


We explication sur les MODEMS : 
La transmission s'effectue par modulation de part et d'autre d'un canal (+/- 


100hz). Par convention, le modem appelant émet dans le canal inférieur (1080 hz) 
et le modem appelé émet dans le canal supérieur (1750 hz ). 
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Le modem AJ 211 ne fonctionne qu'en mode "APPEL" (ORIGINATE) : il "écoute" sur le 
canal supérieur et "émet" dans le canal inférieur. Le second modem utilisé devra 
donc “écouter! sur le canal inférieur et émettre dans le canal supérieur : on dit 
qu'il doit être en mode "REPONSE" (ANSWER). 


Pour communiquer avec une machine munie d'un modem ne disposant que du mode 
"APPEL" (ORIGINATE), il faudra mettre le modem AJ 311 en mode "REPONSE" (ANSWER), 
soit 

- MODEM AJ 211 : mode "APPEL" 

- MODEM AJ 311 : mode "REPONSE" 


3-Echange de texte avec une machine bureautique 


Plusieurs procédures sont disponibles. J'utilise une procédure dissymétrique du 
coté de l'APPLE : 

émission sans logiciel particulier, en utilisant la fonction TRANSFER du FILER 
du POS de l'APPLE Pascal, 

réception au moyen d'un logiciel de communication écrit en Pascal : le programme 
LIAISON dont on trouve le listing dans "LE PASCAL PAR LA PRATIQUE", pages 516 à 
518, Pierre LEBEUX et Henri TAVERNIER, SYBEX. 


Voici la procédure utilisée 

préparation du texte à l'aide de l'EDITOR de l'APPLE Pascal, et stockage sur 
disquette en notant son titre (facile à retrouver avec le FILER) 

préparation de l'APPLE pour la communication 

-- carte de communication dans le slot 2, 

-- liaison selon la norme RS 232 avec le modem accoustique, 

-- mise en service du modem, mode ORIGINATE, FULL DUPLEX. 

appel du poste téléphonique de la machine bureautique pour vérifier que tout est 
également prêt du coté bureautique. 
- 11 suffit ensuite de passer au niveau du FILER les commandes 

--TRANSFER (nom du fichier) 

= à la question TO WHERE, répondre "REMOUT:"; ceci envoie le fichier par la 
carte de communication au modem. 

—— Durant la transmission, rien n'apparaît sur l'écran; les commandes au clavier 
sont sans effet. A la fin de la transmission du fichier, on voit sur l'écran la 
flèche habituelle à l'issue d'un transfert. 


Avec l'APPLE Pascal, la transmission d'un fichier n'est donc pas plus difficile 
que sa copie entre deux disquettes. 


La préparation de la machine bureautique à la réception est spécifique de cette 
machine. J'indique ci-dessous la gamme opératoire propre à la machine RANK XEROX 
850 pleine page. 
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XOUTIQUE rumeroi003 REVISION numeroi01 du 21/10/81 x 
x x 
x XOKOKHK HOKK KCHCK DC CC KO DC OK OK OK OC DAC CC KO KO OK OK OKON K 
x X QEJECTIFIRECEVOIR SUR LA KANK 850 F XX 
x x FOUR IMPRESSION DE QUALITE xx 
x x LE CONTENU D'UN FICHIER EMIS xx 
x x DEFUIS UN AFFLE SOUS 0S FASCAL xx 
x * XX 
x x MX 
x x x 
x XOK NOK MON HKOMK KO KO KO KE KE CC KO KO KO DK OK OK OK ECO 
x x 
x CONFIGURATIONS AFFLE TITI, FASCAL, COM x 
x RANK 850 FAGE + COM 5-1 x 
x x 
XCREE LE$14/10/81 DIFFICULTE:FACILE * 
x x 
XAFFLICATIONitransfert de tableaux comme celui-ci, composes sur l'AFFLE x 
Xavec impression respectant la mise en page x 
X: x 
x x 
XUDTR#ESTRANGIN x 
x x 
JK 2225 2222 2909 so0 soes sous sons gens soos sons sons O0 sons sons song os SNS SUIS suNs soos sugs QIOS SNS OS sus SIOS oo OU0S OS OS O00S S00S OS OS CUS DUNS QUS OS CUS MUSS QUs Que ON due Suns Que QU ANUS OU OU No OS SOUS DUNS Os OU gens CUS SOS CUS CUS sus cms sus ous se sus onns oc SU 
x | x 
XCGAMME 1-Mettre le disque COM de ls KÂANK dans le lecteur de droite x 
x x 
x 2-Mettre le disque de saisie dans le lecteur de aauche x 
x x 
X 3-Mettre en route la RANK x 
x x 
X 4-Chanaer ls station de travail avec <PFARAïS lecture du disque x 
X COM x 
x x 
x D MODE COM 1, repondref <24%, <ACCEFT: " * 
* x 
x 6-À <KETIRER DISQUE COM:, executer x 
x x 
x 7-Faire <CODE FROGKR: et choisir les options suivantes! x 
x —300 (nit/s) x 
* OUT (mode duplex) x 
x —0 (parite) x 
x -“ (ligne feed local) x 
x —x (Cinhiber) x 
x 4x (mode COM) x 
x x 
x 8-Faire <ACCEFTS:i l'ecran indique <COM FKET: x 
x x 
x 9-Allumer le modem de la KANK x 
x X 
x 10-Si l'ecran indique <FROBLEME LIAISON TRANSMISSIOM:f sppuyer x 
x sur <STOFr$ l'ecran doit alors indiquer <COM FRET: x 
*x x 
X i1i-Changer de station pour acceder au disque de saisie! x 
* touche <FAKRA: x 
* x 
x 12-Faire apparaitre le format qui sers celui du document recui x 
x -maraet 7-79 (correspond a RIGHT MARGIN 6, LEFT MARGIN 79) x 
x echappement: 10 x 
x x 
x Four faire apparaitre ce format qui sera automatiquement x 
* celui du document recu, on peut creer un nouveau documents x 


(sos sons sons sons son vo0 o000 cons son son o000 vues save sons sons son o00 o00 pont sons con ces sons 0000 v00e move nee o000 vote 0000 sons oo none son sue see 90e son one vote one sono nee none 0006 one cos ous sos s000 none o00 o000 vues o00e sos 000 none none s00e none see one cons sos sas s000 n000 se0e ve vo o000 one 


XOUTIQUE rumeroi003 REVISION numerot01 du 21/10/81 FOLIO! 2/2 


—faire <CODE FKRGK: 
-enlever <4 MODE COM: 
mettre LOCAL: 
faire <ACCEFT: 
-creer un document (titre propose! FORMATCOM) 
-remplacer le format standard par le format ci-dessus 
-stocker le document 
-revenir en MODE COM: 
{CODE FRGRS 
-effscer “LOCAL: mettre <4 MODE COM: 
-touche <ACCEFT: 


x x x x x x x x X x XX XX 3 


x 
On peut aussi appeler un document comportant ce format, fairex 
apparaitre ce format sur l'ecran, puis re-stocker le documentx 
Ce format sera ensuite mis sur tout nouveau document 


13-Creer un nouveau document qui recevra la communication 
-donner un titrei <TITRE® 
-faire 2 fois <ACCEFT:É le curseur se met spres le format; 
l'ecran indique <COM FRET: 


14-âppeler le poste distant 
15-Disposer le combine sur le modem cordon du cote de COKRD 
1é-Verifier la reception de la porteuse: lampe verte allumee 
17-En cas de <FROBLEME TRANSMISSION, appuyer sur la touche STOF 
18-À la fin de la transmissiont stocker le documents touche STOCK 
19-Four imprimer le document: 

-depuis le sommaire disque, mettre le curseur sur le document 

-mettre le curseur qui est sur <TITRES, sur IMPRIMER: 

(par la touche MOT: 

-touche <ACCEFT:, une nouvelle liqne apparait 

-avec la touche <MOT:, venir sur <ECHAFFEMENT: 

-touche <ACCEFT:, faire apparaitre “10% 


20-Touche <CARAC:, acceder au sommaire de travail} le document 
est indique sous <IMFRIMANTE: 


21-Lancer l'impression par les touches «CODE FAKRA:; 


x x x x x X X x X X X X X X X X X X X x X X X X X X X x 2 X X X X X X X X X X X À X 3% % 2 


x x x XX x 3 XX 3x 3 X XX 3 3€ 3 3€ XX XX X XX 3 XX XX 3€ 3 X XX 3 XX X 3€ 


DES SNS NUS ENS SNS NUS ENS US NUS NUS SENS SENS DONS N90 OUS GONS NOUS GUNS DONS NON SOUS SNS SUIS DONS GONS SNS US GUS SNS UNS OUS DONS SOUS SON DONS DONS GUN SNS SNS CIS GOT DONS UNS GONE DONS SOUS GUNS DONS SOUS SNS DONS DONS DOOS DONS DONS DONS GONG DONS OUS DONS SON SON SOUS SOUS SENS SON SNS SUN UNS SNS SN NN 
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Cette procédure me permet d'imprimer les majuscules et minuscules et de garder la 
présentation du texte tel que je l'ai écrit sous l'EDITOR. Pour cela, il faut que 
la 850 P mette un code "LINE FEED" après chaque retour marge. E effet, la carte 
COMMUNICATION ne transmet pas les codes LINE FEED. 

Si l'on transmet ce code (ASCII 10) au moyen d'un programme de communication comme 
le programme LIAISON, on observe sur la 850 P des effets inattendus : par exemple 
le code ASCII 10 (ou code J) est utilisé par la 850 P comme préfixe aux 
instructions de mise en page. Ainsi, la 850 P comprend (ASCII 10,E) comme 
signifiant un "retour marge code! et non comme un LINE FEED suivi de la lettre E. 


La communication avec une machine bureautique, nécessite par conséquent que l'on 
s'informe sur les conventions utilisées. 


Je prends une autre précaution en disposant les marges sur la 850 P : le chiffre 
indiquant la marge de gauche pour la 850 P est augmenté d'une unité par rapport à 
celui donné par SET ENVIRONNEMENT à RIGHT MARGIN. 


Enfin, pour garder sur la 850 P son aspect au texte écrit sur l'APPLE, je dois 
supprimer l'''espacement proportionnel" de la 850 P en choisissant comme 
“Méchappement" sur la 850 P : 10 (pour mémoire, ceci signifie que les caractères 
seront séparés par 1/10 de pouce). 


Toutes les surprises sont-elles évitées ? Oui, tant que l'on ne transmet que des 
lettres, des chiffres et des signes de ponctuation. J'indique ci-dessous les 
signes de l'APPLE qui sont interprétés différemment par la 850 P 


APPLE (Pascal) 850 P (FRANCAIS) 
M = Majuscule m = minuscule 

S = Schift + C = Ctrl + E = Esc + 
R = Rept CR = retl 
clavier.......... ÉCrTAN...ssssseee écran 
M+S+3 sossssssssst M ane hemes eîe £ 
MHSÆS 2h codes Miss setsaec Le 
MHSESI so isciuderes RS PE — 
MS. sector drs D Re Dee ardent — 
MHSED ssh env: BR Desert à . 
M+S+pD soso Crisis sessentes à 
M#R: sumcsienaeuss Made do dass PR 
MAS ER iso ddtenuves assé idescoce à . 
MER - -hisidonamades - 2h os tarssts ae à Pr+s 
MHSHR' Sas acesssas “Aboiaesa ae esse CRE 
M+S+4M oc... d'au Se 6 . 
M+SAM soso se ses ren ont CR . 
MAS: és eh sis codes des k 
MODES: see se rie 3e lets e Sala éraiere aie Dh 
MES Sites D: Stan ed ar ed de # 
MM Mises des D dus eee és € 


Récupération du texte sur l'APPLE 
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1- Du côté de la machine bureautique, il faut la préparer à l'émission en suivant 
les étapes 1 à 11 ci-dessus. Msuite, on déplace le curseur à l'aide de la touche 
PARA pour surligner TRANSMISSION. Avec la touche LIGNE, on surligne le titre du 
document à transmettre, puis touche ACCEPT. Le titre du texte apparaît avec la 
mention EMISSION. 


I1 faut créer un fichier provisoire qui contiendra toute la communication 

donner un titre 

ACCEPT, ACCEPT 
On est devant une page blanche et il est possible de transmettre des caractères 
directement du clavier (l'écran indique "émission"). On lance l'émission du texte 
par la touche PAGE. 


Il est indispensable d'émettre depuis la machine bureautique le code qui indiquera 
la fin de l'émission : code D pour le programme LIAISON, code C pour une réception 
sous la fonction TRANSFER du FILER. 


2- Du côté de l'APPLE, il suffit de faire exécuter le programme LIAISON et de 
suivre les explications qu'il donne. 


3- he autre méthode de réception peut être utilisée en l'absence du programme 
LIAISON : 

procéder comme ci-dessus pour la machine bureautique 

sur l'APPLE, utiliser la fonction TRANSFER DU FILER ainsi 

-— TRANSFER 

-- FROM REMIN: 

-- TO WHERE: nom de fichier 

le transfert est clos à la réception de CTRL-C 

Toutefois, je ne sais pas actuellement saisir ce fichier avec le FILER : les 
informations contenues dans les deux premiers BLOCKS sont absentes. Ce fichier 


peut être transmis à l'imprimante (TRANSFER TO PRINTER:) et à l'écran (TRANSFER TO 
CONSOLE: ). 


H, Utilisation d'une machine bureautique comme terminal d'un APPLE 
CONVERSATION TEMPS REEL ENTRE MACHINES 


Du côté de l'APPLE, on se met en environnement BASIC et on suit les indications du 
manuel de la carte de communication. Plusieurs combinaisons sont possibles 


=] Conversation entre machines 

sur l'APPLE : 

-— IN£2 

—— CTRL A, CTRLF 

sur la 850 P : suivre les étapes 1 à 18 de la procédure en encadré. 
Tout ce qui est frappé sur un clavier apparaît sur l'écran de la machine émettrice 
ainsi que de la machine réceptrice; il n'y a aucune manoeuvre à faire pour passer 
du rôle d'émetteur à celui de récepteur. 


H=2 Commande par la 850 P d'un programme exécuté par l'APPLE : 


sur l'APPLE 
-- PR£O 
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—— IN£E2 

—— CTRL A, CTRL F 

sur la 850 P 

— CODE R pour accéder à l'unité centrale de l'APPLE et CODE T pour la libérer 
- L'APPLE reprend la main par CTRL A, CTRL X. 
La 850 P peut ainsi faire exécuter tout programme sur l'APPLE (EN BASIC), à 
condition de ne pas utiliser de fonction graphique. L'affichage s'effectue à la 
fois sur les deux écrans. 


L-3 Montrer sur la 850 P le déroulement d'un programme commandé de l'APPLE : 
sur l'APPLE : 
—— PR£2 
sur la 850 P : rien 

Un programme exécuté sur l'APPLE est visualisé sur les deux machines. 


5, Accès à un réseau 
5-1 Cas d'un réseau de temps partagé 


On prépare l'APPLE par 

— IN£2 

- CTRL A 

- CTRL F 

Il n'y à plus qu'à appeler le réseau, et à suivre la procédure de connection 
propre à ce réseau (identification, mot de passe, nom du projet...). L'APPLE 
fonctioñne comme un terminal. Toutefois, je ne sais pas encore garder une trace 
écrite des informations apparaissant sur l'écran. 


5-2 Cas de MICRODIAL : 


MICRODIAL est un ensemble de services pour micro-ordinateurs implanté sur le 
réseau EURODIAL de TELESYSTEME. 

On peut se renseigner 

9 rue Huisman - 75006 - tel : 544 70 23 


MICRODIAL est ouvert aux professionnels, mais également aux "hobbystes" pour la 
somme de 30F/heure de connexion, tout compris. Les services sont en cours de 
développement. Il est déjà possible d'utiliser la MESSAGERIE pour recevoir et 
émettre des messages avec un autre membre du réseau. Autres fonctions implantées 

petites annonces 

fichiers et édition de textes - jeux 

bibliothèque de logiciels - annuaire 
he caractéristique très intéressante est de pouvoir envoyer sur MICRODIAL un 
fichier provenant d'une disquette d'un APPLE et réciproquement de réceptionner sur 
l'APPLE un fichier provenant de MICRODIAL. Il est ainsi possible de communiquer 
entre des micros différents (APPLE, TRS, GOUPIL). 


La connexion se fait par TRANSPAC en utilisant un logiciel de communication fourni 
par MICRODIAL. Les utilisations de ce type de réseau ne sont limitées que par 
l'imagination des utilisateurs. Pour les lecteurs de POM'S actuels ou futurs 
“hobbystes" sur MICRODIAL, mon numéro est : ECB 15086. A bientôt ! 
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Copie d'écran-texte 


Christian Guérin 





Le programme en assembleur présenté ici vous permettra de faire de la copie 
d'écranhtexte sur imprimante. Il transforme également les caractères INVERSE et 
FLASH pour l'impression, mais ne peut être utilisé avec une carte-imprimante qui 
affiche en même temps les données à l'écran. 


Le petit programme BASIC ci-joint donne un exemple d'utilisation. 


0800 1  ; 

0800 2 3 

0000 3 OKG $0000 

0000 4 OEJ $0800 

0000 SO ÿ 

0000 6 ; 

0000 7 3 

0000 9  ; x 

0000 10 }ÿ x FROGRAMME DE HARD COFIE TEXTE 

0000 11  ; X 

0000 13 ; 

0000 14  ; 

0000 15  ADL EFZ $6 ADRESSE DE DEEUT DE LIGNE 
0000 16 LIGNE EFZ $8 NUMERO DE LIGNE 

0000 17 ; 

0000 18 OUT EQU #FDED ECRITURE D'UN CARACTERE 
0000 19 ; 

0000 20 ; 

0000 21 

5000 22 H ete 00e 00 anne oo moe moe ones one me o000 ame 00e ones oune 00 c000 00e 0000 onne anne 1000 antenne o00e anne oué 00 anne 0e o00e anne 000 0000 anus 0000 one aan 00e 0000 mue one 000 ou ones 00 anne one 000 one 
0000 23 ÿ$ DEEUT DU HARD COFIE 

0000 DA. SEMESTRE TNT MERE SSSR MERE 
0000 25 

0000 900 26 HCT LDAÀ #0 $DEEUT HARD COFIE LIGNE 0 
0002 48 27 HCT.1 FHA ; SAUVEGARDE NUMERO LIGNE 
0003 28 ; 

0003 ÊD RS een de ne qe ne es ne Ps © SR SE TS PT D nt a 
0003 30 ; CALCUL DE L'’ADRESSE DE DEEUT DE LA LIGNE 

0003 CRE RTS Se ee Re eee ee ee nee en ER Se rene 
0003 32 

0003 48 33 FHA 

0004 4À 34 LSKR 

0005 2903 35 AND #33 

0007 0904 36 ORA #54 ÿ ROUTINE VTAE 

0009 8507 37 STA ADL+1 

000E 68 38 FLA 

000C 2918 39 AND #$18 

000E 9002 40 ECC HCT,2 

0010 697F 41 ADC +47F 

0012 8506 42 HCT,2 STA ADL 

0014 0À 43 ASL 

0015 O0À 44 ASL 
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0016 0506 45 OKA DL 
0018 8506 46 STA ADL 
001À 47  } 
001À 48 }; 
001À 49  } 
001À 91  } 
001À 000 92 LDY #0 
001C E106 33 HCT,3 LDA CADL),Y 
001E 3008 54 EMI HCT,4 
0020 293F Jo AND #$3F 
0022 C920 96 CMF #$20 
0024 E002 97 ECS HCT,4 
0026 0940 58 OKA +#$40 
0028 99 } 
0028 0980 60 HCT,4 OKRA +580 
0024 20EDFD 61 JSK OUT 
002D C8 62 INY 
002E C028 63 CFY #140 
0030 DOEAÀ 64 ENE HCT,3 
0032 65 } 
0032 67  ÿ 
0032 68 }; 
0032 69 À 
0032 ÀA98D 70 LDA #"M'"-4#$40 
0034 20EDFD 71 JSK QUT 
0037 72  : 
0037 68 73 FL 
0038 A8 74 TAY 
0039 C8 75 INY 
0054 98 76 TYA 
003E C918 77 CMF +124 
003D DO0OC3 78 ENE HCT,1 
093F 79  }ÿ 
003F 60 80 RTS 
0040 81 ; 
0040 82 ; 
0040 83 ; 
84 END 

20 D$ = CHK$ (4) 
30 À$ = KXAKXMEMEMKAMIRMERMMKXMKKK 

XCHCHCMHONOHON NC HONCHCKK 
40 FKRINT D$$"ELOAD ESHCT,4$300" 
100 TEXT # HOME 
110 FKRINT À$; 
120 FOR I = 1 TO 21 
130 FRINT "xx"$i HTAE 40. 
140 NEXT I 
150 PRINT A$;"xx"; 
200 VTAE 45 HTÂAE 74 INVERSE 
210 PRINT "FOM’S" 
220 VTAE 115 HTAE 135 FLASH 
230 FRINT "HARD COFIE TEXT" 
240 VTAE 18% HTAE 4 NORMAL 
250 FRINT "METTEZ VOTRE IMFRIMAN 


TE EN MARCHE" 
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(en00 one none one none 0000 0000 none one none none o000 0000 0000 sue 0000 0000 noue 0068 on ao o000 0000 0000 0040 0000 0006 0000 ane 0000 0006 0000 0000 0000 o000 one o00 o000 s00e 00 0006 000 o000 000 0900 0900 son one à 00 a000 


ÿY FOINTE DANS LA LIGNE 


SI LE CARACTERE EST EN 
ÿ  INVERSE OU EN FLASHANT 
ÿ ON LE TRANSFORME 


$ECRITURE SUR L'IMPFRIMANTE 
} CARACTERE SUIVANT 
$TEST SI FIN DE LA LIGNE 


(o000 0000 an00 o000 000 son o000 oo 00e o000 0000 none 0000 o000 one 0000 o00e ou6e 4008 n0ne 0000 n00e 000 0000 nu0e o000 0000 oo 0000 0008 0200 0000 son son 0000 0000 0000 one 0000 0000 00e 0000 0000 0000 o000 0000 0000 0000 0000 0000 


ENVOIE DE ‘RETURN’ 


$FASSAGE LIGNE SUIVANTE 


TEST SI FIN DE LA FÂAGE 





(rRocñamMnE G:HCT ) 


VTAE 20? HTAE 8 
FRINT "FUIS TAFEZ SUR UNE TO 
UCHE" 


HAIT - 16384,128: FOKE - 1 
6368,0 

PRINT D$;"PR#1" 

CALL 768 

PRINT D$;"PR#0" 

HOME 


0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 


Routine de présentation graphique 


Jean-François Duvivier 


S 


Si vous êtes passé sur notre stand au Sicob l'an dernier, ou si vous êtes abonné à 
nos disquettes, vous avez certainement remarqué la présentation de la disquette 
Pom's N 1. 


Pour ceux qui ne l'on pas vue, disons qu'il s'agit d'un dédoublement d'image HGR 
et d'un “scrolling" d'une des deux images dédoublées. Le résultat est 
particulièrement esthétique pour des images peu chargées ou des logos, comme dans 
le cas de la disquette Pom's N 1. 


Après de multiples améliorations, nous vous proposons ici un programme qui vous 
permettra de définir vous-même les effets que vous souhaitez. Ecrit en Assembleur, 
pour des raisons évidentes de rapidité, il occupe environ 150 octets. 


Avant d'exécuter ce programme, il faut lui définir la page-écran sur laquelle il 
va travailler et dans laquelle vous avez chargé votre image, cette variable doit 
être placée en $303 (771) et sa valeur est 

$20 (32) pour la page 1 

$140 (64) pour la page 2 


Il faut ensuite définir le séquencement du programme grâce à une zone située entre 
$304 (772) et $317 (791). La séquence définie peut avoir une longueur quelconque 
(mais dans les limites de la zone prévue), paire puisque chaque “action 
élémentaire est définie par deux octets. La séquence est terminée par un zéro. 


Le premier octet définit le nombre de déplacements effectués. Le second indique 
l'ampleur du déplacement. 


Vite, un exemple, car je sens que ce n'est pas clair ! Une paire $05-$02 indique 
que le programme va faire 5 fois un déplacement de l'écran d'une ligne sur deux, 
ce qui correspond à un dédoublement parfait de l'image. Si, au lieu de $02, vous 
mettez $FE, c'est-à-dire son complément, le déplacement s'effectuera toujours une 
ligne sur deux, mais dans l'autre sens. 


A noter qu'une paire $XX-#$01 ou $XX-$FF fait un déplacement de XX lignes, 1 ligne 
sur 1, c'est-à-dire de toute l'imææe. 


Vous pouvez essayer diverses valeurs pour obtenir le meilleur effet, mais vous 
avez toujours intérêt après un mouvement dans un sens à effectuer le mouvement 
complémentaire dans l'autre sens, du même nombre de lignes afin de retrouver le 
dessin original. 


À $  ONCNONMOMONONNOMOM NOK NOK KE 1800 12 NE EFZ $01I 

2 ÿ X x 0800 13 LIGNF EFZ $02 

3 + x GRAPHIQUE x 0800 14 SAUX EFZ $04 

4 ÿ X x 0800 15 SENS EFZ $05 

a RE COFYLEFT x 0800 16 LIGN EFZ $26 

& ? X x 0800 17 HLIGN EFZ $E2 

7 35 X FOM’S x 0800 18 HFAG EFZ $Eé 

8 ; x x 0800 19 HFOSN EQU $F411 
? 5 KXKKXXXAKAKAAKMMX 0800 20 HIRES1i EQU $C050 
10 0800 21 HIRES2 EQU $C052 
11 NOLIGN EFZ $00 0800 22 HMIRES3 EQU $C057 
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401803 


ADS0C0 
ADS52C0 
ADS7C0 


4200 
8604 


ADS4C0 
AD0303 
C940 
D003 
ADSS5C0 


A900 
8500 
85E2 


2011F4 


4604 
E604 


5D0403 
8505 


AS0S 
1004 
A9C0 
8500 


206203 
Cé01 
AS01 
DOEF 


403203 


FAGEL  EQU 
FAGEZ EQU 
; 

ORG 

OEJ 
; 
ÿ DEEUT DU 
ÿ sesesesess 
; 

JMF 
; 
; DONNEES 
ÿ sense 
; : 
FAGE HEX 
SEQU'  DFS 


? 
ÿ FROGRAMME 
? semeemmumsz 


+ 


L 

DEEUT  LDA 
LDA 
LDA 


. 


LDX 
STX 


… 


LDA 
© LDA 
CMF 
ENE 
LDA 
EOUCLE 


. 


? 

EOUCLZ LDA 
EFL 
LDA 
STA 


? 

EOUCL3 JSK 
DEC 
LDA 
ENE 


JMF 


+ + 
T2 
sm 


$C054 
$C05S 


$300 
$800 


FROGRÂMME 


DEEUT 


20 
20 


HIRESI 
HIRES2 
HIRES3 


+$00 
SAVX 


FAGE1 
FAGE 
+540 
EOUCLE 
FAGEZ2 


#$00 
NOLIGN 


| HLIGN 


HFOSN 


#1192 
NOLIGN 


TOUR 
NE: 

NE: 
EOUCL.2 


EOUCLE 





ALISATION D'UN TOUR DE 
ECRAN SUIVANT LE SENS 


86 

207303 87 
88 

A027 89 
E126 90 
9102 91 
88 92 
10F9 93 
94 

AS00 9$ 
DOF0 96 
60 97 
98 

99 

100 

101 

AS26 102 
8502 103 
AS27 104 
8503 105 
106 

AS00 107 
18 108 
6505 109 
8500 110 
C9C0 111 
D004 112 
A900 113 
8500 114 
115 

AD0303 116 
85E6 117 
AS00 118 
85E2 119 
2011F4 120 
60- 121 
122 

123 

124 

125 

60 126 


0300- 4C 
0308- 00 


0310- 00 
0318- 
0320- 
0328- 
0330-- 
0338- 
0340-- 


AD 
C0 
AD 
99 
20 
04 
E8 
10 
03 
32 
26 
DO 
27 
85 
85 


00 


0348-- 
0350-- 
0358- 
0360- 
0368- 
0370- 
0378- 
0380- 
0388- 
037 0- 


? 
TOUR 


? 


JSK 


. LDY 
LDA 
STA 

" DEY 
EFL 


TOUK1 


. 


LDA 
ENE 
RTS 


 CLIGN LDA 


STA 
LDA 
STA 


. 


LDA 
CLC 


? 
LIGNI 


11% ++ + > 


IN 





CLIGN 
#+$27 
CLIGN),Y 
(LIGNF),Y 
TOUK1 


NOLIGN 
TOUR 


CALCUL DE LA LICNE 


LIGN+1 
LIGNF+1 


NOLIGN 


SENS 
NOLIGN 
#+1192 
LIGN1 
#90 0 
NOLIGN 


PAGE 
HPFAG 
NOLIGN 
HLIGN 
HFOSN 


Les fichiers EXEC 


Bruno Rives 





INTRODUCTION 


Sur APPLE II et APPLE ///, les langages BASIC et Pascal donnent la possibilité à 
l'utilisateur d'employer des fichiers d'un type un peu particulier, les fichiers 
EXEC ; ces fichiers sont EXECutables. 


Un fichier EXEC consiste en une liste de commandes sauvées en format ASCII (ou 
TEXT). Quand un tel fichier est exécuté, chaque commande qu'il contient est prise 
en compte par le système comme si elle avait été tapée au clavier par 
l'utilisateur. Ne marcheront donc que les commandes que l'utilisateur peut donner 
en ‘direct! au clavier et non celles quine peuvent s'utiliser qu'à l'intérieur 
d'un programme : les instructions de gestion de fichiers, les GOTO ... 


L'utilisation la plus rationnelle est comparable à celle que l'on trouve sur les 
gros systèmes sous l'appellation de J.C.L. (Job Control Languæge) et qui consiste 
à enchaîner plusieurs programmes en y mêlant des données. On crée une suite de 
RUNS de programmes suivis chacun des données dont ils ont besoin. On gagne ainsi 
du temps en lançant une série de travaux sans devoir exécuter un par un chacun des 
programmes et attendre parfois la fin d'impressions interminables pour lancer les 
programmes suivants. Cela permet aussi de faire tourner un même programme avec 
plusieurs jeux de données différents sans avoir à les lancer chaque fois. 


Sur APPLE, on peut non seulement lier l'exécution de programmes que l'on tient à 
garder séparés les uns des autres, mais aussi et surtout rendre automatique toute 
une suite de commandes et d'ordres que l'on tape généralement un à un au clavier 
fabrication et modification automatiques de programmes, copie et formatage de 
disquettes, démonstrations automatiques 


UTILISATION DES FICHIERS EXEC EN BASIC. 


Un fichier EXEC est donc une suite de commandes BASIC saisies dans un fichier de 
type TEXT. Ce fichier est ensuite exécutable par la commande EXEC suivie du nom du 
fichier. Plusieurs moyens sont envisageables pour le créer, le meilleur étant 
d'utiliser un programme de traitement de texte dont les fichiers sont sous forme 
TEXT (APPLEWRITER n'en fait pas partie, par contre APPLEWRITER II et /// sont 
utilisables). Pour ceux qui n'en disposent pas, voici un petit programme BASIC 
pour APPLE II qui fait très bien l'affaire 


O D$ = CHR$() : REM CTRL-D 


10 HOME 

20 PRINT "DONNEZ LE NOM DU FICHIER EXEC A CREER" 
30 INPUT N$ 

4O PRINT D$;"OPEN" ;N$ 

50 PRINT 


60 PRINT "DONNEZ LES COMMANDES QUE VOUS VOULEZ EXECUTER" 
70 PRINT "QUIT POUR TERMINER" 

80 PRINT 

90 INPUT C$ 

100 IF C$="QUIT" THEN 200 

110 PRINT D$;"WRITE" ; N$ 

120 PRINT C$ 

130 PRINT D$ 
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140 GOTO 80 

200 PRINT D$:;"CLOSE" ; N$ 

210 PRINT 

220 PRINT "VOULEZ VOUS TESTER CE FICHIER EXEC (O/N)" 
230 GET A$:IF A$ = "N" THEN 260 

240 PRINT 

250 PRINT D$;"EXEC" ; N$ 

260 END 


Sauvez ce programme sous le nom TEST, par exemple, et exécutez le. Amusez vous à 
donner les ordres les plus variés possibles (en évitant l'ordre INIT ...) 


CATALOG 
LOAD TEST 
SPEED = 100 
LIST 

SPEED = 255 
NEW 

10 HOME 

20 FOR I=1 TO 100 
30 PRINT I 
HO NEXT I 
50 END 

RUN 

RUN TEST 
QUIT 


Pour APPLE ///, le principe est exactement le même; seuls quelques ordres BASIC 
sont différents. Si vous terminez votre série par RUN TEST, cela permet de 
retourner au programme initial de création. 


En partant de ce mode d'emploi, il est possible d'utiliser les fichiers EXEC pour 
une foule d'applications différentes. 


UTILISATION DES FICHIERS EXEC EN BASIC 
1) Liste des commandes usuelles. 


C'est l'utilisation la plus courante du fichier EXEC. Lorsqu'on programme en 
BASIC, il arrive très souvent que l'on ait à rentrer des suites de commandes 
toujours identiques et il est beaucoup plus facile de taper EXEC qu'une suite de 
commandes, même si l'on n'a que deux ou trois ordres à donner. On peut se créer un 
véritable catalogue de groupes de commandes que l'on utilise fréquemment. Par 
exemple 


EXEC P où P contient : PR£1 


CTRL-I 8ON 

POKE 36, 80 

LIST 

POKE 36, 40 

PR£O 

EXEC L où L contient : OPEN £1,".PRINTER" 

OUTPUT £1 

LIST 


EXEC C où C contient : CATALOG S6,D1 
CATALOG S6,D2 ... 


EXEC M où M contient : CALL -151 
300L 
3D0G 
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I1 faut noter que l'ordre 'EXEC nom de fichier' peut être donné à l'intérieur d'un 
fichier EXEC. 


2) La capture d'un programme BASIC. 


Cette manipulation est très intéressante car elle donne la possibilité, en 
saisissant un programme BASIC sous forme TEXT, de lui faire subir de nombreuses 
transformations 


- Par l'intermédiaire d'un traitement de texte comme APPLEWRITER II ou ///, il 
est possible de faire des modifications rapides en se promenant dans le programme 
comme dans un texte continu ou en procédant à la recherche et au remplacement 
automatique ou non. Il est donc possible de remplacer tous les noms de variables 
par d'autres, une certaine catégorie de lignes par d'autres ... 

- Par l'intermédiaire d'un programme BASIC qui lit ce fichier EXEC comme un 
fichier séquentiel classique, on peut aussi faire des modifications automatiques, 
compter les variables, changer les numéros de lignes, produire un listing sur 
imprimante qui sépare automatiquement les boucles, les sous-programmes ... 

…_ À l'aide de TEXT FILE CONVERTER ou de APPLEWRITER /// FILE CONVERTER, il est 
facile de faire passer un programme BASIC d'APPLE II sur APPLE /// et 
réciproquement . 

—- On peut également réaliser un traducteur BASIC permettant de passer de 
INTEGER à APPLESOFT et à BUSINESS BASIC. 

- On peut très simplement transmettre ce fichier EXEC avec un programme de 
communication tel que VISITERM ou ACCES ///. 


Pour ‘capturer! un programme BASIC, rien de plus facile ! Tout d'abord, faire un 
LOAD du programme en mémoire centrale et repérer les numéros de la première et de 
la dernière ligne (par exemple, le programme va de 10 à 2000). Ajouter ensuite en 
début de programme les lignes suivantes : 


D$ = CHR$(4) : REM CTRL-D 

PRINT D$;"OPEN EX" 

PRINT D$;"WRITE EX" 

POKE 33, 30 : REM PERMET DE COMPACTER LE PROGRAMME 
LIST 10, 2000 

POKE 33, 40 

PRINT D$;"CLOSE" 

END 


I OU EC D — © 


Après exécution, le programme initial sera saisi en mode TEXT sous le nom EX. Pour 
le retrouver, il suffit de taper EXEC EX, et il sera de nouveau en mémoire 
centrale. Essayez !!! 

(Pour APPLE ///, seuls changent les ordres BASIC). 


3) La génération automatique de programmes BASIC. 


I1 s'aæit là de l'utilisation la plus performante, mais aussi la plus délicate, 
des fichiers EXEC. Elle est employée par des concepteurs de logiciel qui doivent 
théoriquement écrire des programmes différents pour chacun de leurs clients. Ils 
ont effectivement commencé par adapter chacun des programmes, mais se sont vite 
aperçus que certaines parties étaient toujours les mêmes : ouverture, lecture et 
écriture, fermeture de fichiers, éditions, traitement de chaînes de caractères ... 
Alors, plutôt que de retaper à chaque fois tous les programmes, il est plus 
efficace de se confectionner un générateur de programmes ! 


Tout d'abord il faut organiser un peu ses programmes de telle manière que les 


ordres courants soient toujours à la même place : par exemple, les ouvertures de 
fichiers à partir de la ligne 2000, les fermetures à partir de 3000 ..., et en 
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utilisant les mêmes noms de variables pour recevoir les mêmes types d'information 
(par exemple, F1$ sera le nom du premier fichier, R1$ à M$ pour les réponses des. 
utilisateurs ...). Ensuite il faut créer des petits programmes répondant à ces 
fonctions, susceptibles d'être inclus dans le programme principal final, et saisis 
sous forme de fichiers EXEC, comme indiqué précédemment. Efin, il faut créer un 
programme générateur de programmes qui, en fonction des traitements choisis, va 
engendrer un programme particulier composé d'un certain nombre de sous-programmes 
différents, appelés par EXEC et liés entre eux par des lignes BASIC toujours 
identiques. . 


}) La saisie d'un programme en langage-machine. 


Il est des cas où l'on veut implanter un programme en langage-machine directement 
à. partir du BASIC sans passer par l'intermédiaire de BSAVE et BLOAD et en évitant 
de rentrer des lignes de POKEs difficiles à contrôler et à taper. Les fichiers 
EXEC permettent aussi.de faire cela. 

Imaginez que vous ayez construit un programme en langage-machine qui se trouve aux 
adresses 768 à 900 en décimal, et que vous vouliez l'implanter à partir d'un 
programme BASIC à l'aide de POKES. Le programme BASIC suivant le permet 


10 D$ = CHR$(4) : REM CTRL-D 

20 PRINT D$;"OPEN EX". 

30 PRINT D$;"WRITE EX" 

JO FOR I=768 TO 900 

50 PRINT "10";I;" POKE ";I;",";PEEK(1I) 
60 NEXT I 
70 PRINT "10910 RETURN" 
80 PRINT D$;"CLOSE" 


Pour rajouter à votre programme cetté phase d'implémentation du sous-programme en 
langage-machine, faites un LOAD de votre programme, puis un EXEC EX qui rajoutera 
les lignes 10768 à 10910, ajoutez ensuite une ligne 'GOSUB 10768' pour initialiser 
la routine, et re-sauvez le tout. 


5) Les démonstrations et exécutions automatiques. 


Cette utilisation des fichiers EXEC permet de faire exécuter un programme qui 
. demande des ‘données extérieures sans aucune intervention, sans modifier le 
programme, et même de faire tourner une même application avec plusieurs jeux 
d'essais définis à l'avance. 


Prenons l'exemple d'un programme DATE qui demande à l'utilisateur son nom, puis 
son prénom, enfin sa date de naissance. Pour l'exécuter sans toucher au clavier, 
il suffit de créer un fichier EXEC comportant 


RUN DATE 

- DURAND 

- BERNARD 

- 23 JANVIER 1952 


Ceci peut servir à des versions de démonstration de programmes dont on ne veut 
pas modifier toutes les lignes INPUT pour en rendre l'exécution automatique. 


UTILISATION DES FICHIERS EXEC EN PASCAL. 
En Pascal APPLE II ou APPLE ///, un fichier EXEC est également un fichier de type 


ASCII comprenant une liste de commandes que l'on donne habituellement au clavier. 
Comme en BASIC, on peut créer ce fichier par un programme Pascal. La marche à 
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suivre est alors la même et nous ne la décrirons pas ici. 


Ce que l'on peut faire de plus, c'est déclarer au niveau du système Pascal que 
tout ce que l'on va taper au clavier sera désormais enregistré dans un fichier 
préalablement défini. La différence est de taille car il suffit de taper une fois 
la série de commandes pour la refaire ensuite autant de fois que l'on veut de 
manière automatique. Cela veut dire aussi qu'il faudra exécuter TOUTES les 
commandes que l'on veut avoir sous le fichier EXEC, ce qui n'est pas le cas 
lorsqu'on le crée à partir d'un programme. 


La marche à suivre est alors la suivante 

- Au niveau du système, taper M pour MAKE EXEC. 

- Il est alors demandé un nom de fichier et un signe qui, tapé deux fois par la 
suite, arrêtera l'enregistrement sur le fichier EXEC. 

- À partir de ce moment là, TOUT ce que vous tapez est enregistré sous le nom 
que vous avez donné, et cela jusqu'à ce que vous tapiez deux fois de suite le 
caractère de fin d'enregistrement. 

- Pour exécuter le fichier, tapez EXEC//, suivi du nom du fichier. 

Par exemple, 


- M (au niveau système Pascal) 

- TEST (nom du fichier EXEC) 

— % (acceptation de % comme caractère de fin) 
-F (FILER) 

SL (catalogue) 

=. (du disque courant) 

- Q (retour au niveau général) 


-%% (fin de l'enregistrement) 


L'exécution de ce fichier par EXEC//TEST va automatiquement dans le FILER et donne 
le directory du volume courant. Cette exécution peut aussi être lancée à partir 
d'un autre programme Pascal à l'aide de CHAINSTUFF (comme le programme exécuté 
lors du BOOT). 


Les utilisations sont exactement les mêmes que celles précédemment définies pour 
le langage BASIC, à part celles qui ont trait à la modification et au transfert 
des proœrammes, puisque les programmes source Pascal sont déjà en format TEXT. De 
même, la saisie de programmes en assembleur est inutile. 


Par contre, la fabrication de programmes générateurs de programmes et 
l'utilisation de toutes les commandes de gestion de fichiers et de volumes est 
très puissante. La partie de programme décrite ci-après montre l'utilisation des 
fichiers EXEC à partir d'un programme Pascal APPLE II pour formater des 
disquettes. Il est généralement inclu dans un programme principal sous forme de 
procédure mais ce petit exemple vous permettra de le tester immédiatement 


PROGRAM FORMAT; 
$ USES CHAINSTUFF; 
BEGIN 
WRITELN 
("PLACEZ UNE DISQUETTE VIERGE DANS LE LECTEUR 5 ET TAPEZ RETURN'); 
READ(KEYBOARD, REPONSE) ; 
IF REPONSE = CHR(13) THEN SETCHAIN('EXEC//EXFORMAT' ); 


END 
Le fichier EXEC EXFORMAT contient : = X 
- FORMATTER 
- 5 
- (Return) 
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= X 


— FORMAT 


La dernière instruction, X FORMAT, 


Attention, 
être exécutées une première fois, 
FORMAT pour pouvoir stopper 


l'enregistrement, 


permet de retourner au programme principal. 
comme toutes les instructions que vous entrez sous fichier EXEC doivent 
vous serez obligé de faire un faux programme 


faute de quoi l'EXEC répètera 


fidèlement ou le formatage continu ou l'arrêt du programme. 


Les fichiers EXEC ne 
pourtant partie des 

ressources. Si 
ont sans doute 


petites 


pensé que tout 


sont généralement 
caractéristiques 
l'accent n'a pas été mis dessus, c'est parce que ses concepteurs 
informaticien devait 


connus que de nom sur APPLE. Ils font 
d'APPLE qui offrent de multiples 


connaitre ce genre de 


possibilités. Mais nous ne sommes pas tous des informaticiens ... 












































EE. LD - 


Enseignement Assisté par Ordinateur pour Ordinateurs 
MOPPE D'ANPICO. = SILEX = ITT 2020 = APPLE II = APPLE II + 


FR = 


COURS EN FRANCAIS 
+ APPLESOFT Î- APPLE II ( + Carte APPLESOFT ) D 
- APPLE II + 
- APPLE III 





- MOPPE D'ANPICO ( + APPLESOFT en RO% ) 
+ PALSOFT  f- ITT 2020 ( + Carte PALSOFT ) 
+ SILROK  f- SILEX ( de Léanorä ) 
{ Sur DISSUETTES 5 1/4 Pouces = DOS = DOS 3.3 - Mémoire = 48 K. ) 





0 0e © + o + 


1/ CCURS 1 ! BASIC ) = En Français 

TRES PROGRESSIF - Ne nécessite aucune connaissance préalable en 
informatique. > 

Pour débutants et non débutants. TOUT Y EST EXPLIQUE. 

20 Leçons = Environ 10 à 12 Heures de cours. 

80 Exercices commentés, expliqués, résolus, exécutés. 

140 Questions notées sur 20, par groupes. = Réponses aux questions. 
GRAPHISLE BASSE et HAUTE RESOLUTION. 

Défilement automatique du Cours avec arrêts et reprises possibles 
‘en cours de leçon. 

De nombreux exercices peuvent être réexécutés autant de fois que 
vous le souhaitez. Ainsi, vous pouvez obtenir les mêmes résultats 
ou des résultats différents en faisant varier les données d'entrée. 


A LA FIN DE CE COURS, VOUS SAUREZ PROGRAMKER. 
2/ COURS 2 { BASIC + ) - En Français O 





+ Philosophie générale identique à celle du COURS 1 ( BASIC ). 
. 25 Leçons - 12 Heures de cours minimum. 

e 120 Exercices commentés, expliqués, résolus, exécutés. 

+ 160 Questions notées sur 20, par groupes = Réporses aux questions. 


3/ CONTRATS-LOCATION du COURS BASIC pour: 
.« Etablissements d'Enseignement. 
+ Etablissements de Formation payante. 
.< Centre de Recherches, Laboratoires, Centre d'Essais,...e 


. Cocité étentreprises: 
RE : ER 
+ COURS 2 ( BASIC + ) 3S0FF up 


h 4 L ES 
ANDRE P, FINCT 
Prix donnés à titre indicatif, pouvant BAISSER 
être modifiés sans préavis. 
Le =) 














PRIX ( T.V.As comprise ) 













91080 EVHY-COLRCOLACHFES 
pers =] 







RE V E N D E U RS, 
C O N T A C T E Z - N O 1 
RE 





5. 





Ne ratez pas la cible! 


Le premier lecteur 
parvenir l'explication complète de ce 
que fait le programme suivant gagnera 
un abonnement à quatre numéros de 
Pom's. Ce programme requiert le BASIC 
Integer en ROM, c'est-à-dire la carte 
Integer ou la carte langage. 


qui nous fera 


LIST 


20733 CALL -936: TAE 19 VTAE 13 


20734 DEVINETTE= ASC(C"FOMS")x FEEK 
(-1823)/ FEEK (-1595)xFOMS 4 
FOMS 

20735 FOKE FEEK (-7782),12:? FOKE 
FEEK (-4710),184 

20736 FOKE 2069, FEEK ( RND (4094 
)) 

20737 FRINT "FOMS" 

20738 FOKE FOMS,FOMS 

20739 FOF 
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Personnalisez vos disquettes 


Pierre Boutreux 





Vous souhaitez peut-être pouvoir personnaliser vos disquettes en faisant 
apparaître votre nom, par exemple, lors du CATALOG... Pour cela, il suffit de 
remplacer la mention “DISK VOLUME" affichée en tête du catalogue par un titre à 


votre convenance. 


En effet, si vous examinez le contenu des adresses $B3B0 à $B3BA, vous trouverez : 
B3B0O- C5 CD D5 CC CF D6 AO CB 
B3B8- D3 C9 C4 


Eh vous reportant à la page 7 du "APPLE II Reference Manual", vous constatez que 
ces codes sont les codes-écran (ou ASCII étendu) des caractères suivants : 

B3B0O- E M U L O V K 

B3B8- S I D 


soit DISK VOLUME à l'envers. Il faut donc charger dans les mémoires $B3B0 à $B3BA 
les codes-écran de votre titre en sens inverse, dans la limite des 11 caractères 
disponibles. C'est ce que fait le programme BASIC listé ci-après, avec quelques 
variantes selon que vous désirez un affichage normal, INVERSE ou clignotant. 

Pour sauver le DOS contenant votre modification, il suffit ensuite d'initialiser 
une nouvelle disquette. 


Remarque : si C=ASC(C$), le code écran du caractère C$ est : 
. C+128 en mode NORMAL, C-64 en mode INVERSE, C en mode FLASH, si C> 64. 
. C+128 en mode NORMAL, C en mode INVERSE, C+64 en mode FLASH, si C< 64. 





10 HOME 
0 RKEM 


KIOKKKOKOK MK K KE K OK K OK K OK KKKK 


x x 
x FERSONNALISEZ  * 
x x 
X VOTRE DISQUETTE * 
se " 160 PRINT ® CE PROGRAMME VOUS FE 
XOXOKOKOKOKOKOKONONNONNNC OMC OHUKKOK RMETTRA DE PERSON-" 
MR: ES 170 PRINT "NALISER VOS DISQUETTE 
65 REM COPYRIGHT F,.EOUTREUX 5 EN REMPLACENT" 
72 REM LUME FAR CELLE DE" 
75 HTAB 10: COTO 90 190 PRINT "VOTRE CHOIX.IL FONCTI 
80 HTAE 20 - LEN (Z$) / 2t PRINT ONNE FAR MODIFICA-" 
28? RETURN 200 PRINT "TION DU DOS,.IL FAUDRA 
A RES PRE DO DONC SAUVER LE NOUVEAU DOS 
“x Ln178 à A AINSI MODIFIE EN INITIALISAN 
: GOSUE 80:Z$ = E$t GOSUE 80 T. UNE NOUVELLE DISQUETTE AV 
178 = UXPERSONNALTSATION*"? COSUE EC LE PROGRAMME HELLO DE VOT 
80:Z$ = E$t GOSUE 80:Z$ = "x RÉ AORe" 
D'UNE DISQUETTEX" 210 PRINT "L'INFORMATION AURA UN 
100 GOSUE 80:Z$ = E$: COSUE 80:Z FE ÉONBUEUR MAXEMAS" 
“ = 32 COGUL b0 220 PRINT "LE DE 11 CARACTERES," 
150 PRINT 
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informatique 


vous apporte 


ASSISTANCE et CONSEIL 


pour la 


MISE EN SERVICE 


de votre 


1er MICRO-ORDINATEUR 


e Réalisation de logiciels spécifiques 

e Organisation de sessions d'initiation à 
l'ordinateur et de formation à l'utilisation 
des programmes sur APPLE Il et Goupil 


e Location de matériel 
courte ou moyenne durée 


Apple 1148 K/Foppy/mon. 350F H.T. 700FH.T. 400FH.T. 

450 F H.T. 900F H.T. 500 F H.T. 

550FH.T. | 1100FH.T. 600 F H.T. 
— 5 % duP.Vtel 3% duP.Vte 








Apple 11 48 K/2 Foppy/mon. 
Apple Il Pascal 2 Floppy 
Imprimantes 





e Contrats d'entretien de matériel 


Œerpie + JOUDII 2 


+ Aide au choix de logiciels standards 





Demandez une démonstration de nos Logiciels Stan- 

dards interactifs « Série S » pour APPLE: 

(Tous compatibles entre eux et avec VISICAEC) 

+ SUPER-GENEFICHE version PRO {65 % de capacité supplé- 
mentaire sur un APPLE 64 K, et de nombreuses extensions 
nouvelles} 

+ S/FACTURE (pour la facturation) + S/ETIQUETTE fpour le 
mailing} 

+ S/COURRIER (pour le courrier personnalisé et le traitement 
de texte) 

+ MODIFICHE {utilitaire de transformation des fichiers} 


w 
( }IMAGAL 
MB informatique 
1 à 5, rue Gutenberg 
75015 PARIS (M° Javel) 
tél. : (1) 577-59-39 
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FRINT " L'AFFICHAGE FEUT SE 
FAIRE " 


HTAE 10% FRINT " 1-EN VIDEO 
NORMALE " 

HTAËE 10% FRINT " 2-EN VIDEO 
INVERSE" 

HTAE 105 FRINT " S-EN MODE C 
LIGNOTANT " 
FRINT 

FRINT "ENTREZ VOTRE CHOIX ii 
5233"$$ HTAE 30% INFUT " ? " 
RAXIA = ÀX 
FRINT $ FRINT $ FRINT 

IF À < 1 OR À : 3 THEN 290 
FRINT 3% FRINT 

FRINT "ENTREZ VOTRE MODIFICA 
TION" 
FRINT "(MAXIMUM 11 CARACTERE 
S)"$35 HTAE 2745 INFUT 4$ 

X = LEN (4$) 

IF X % 11 THEN 320 

E = 11 - X 
IF À & 1 OR À = 3 THEN E$ = 
IF À = 2 THEN E$ = "A" 

IF E = 0 THEN 430 
FOR I = 1 TO E 

AS = E$ + ÀA$ 
NEXT I 
FOR J = 1 TO 11 

E$ =  MID$ (A$,J,1) 
IF À = 1 THEN FOKE 46011 - 
Js ASC (E$) + 128 
IF À = 2 THEN FOKE 46011 - 
J, ASC (ES) — 64 x (€ ASC (E$ 
) 5 = 64) 
IF À = 3 THEN FOKE 46011 - 
J, ÀSC (E$) + 64 x ( ASC CE$ 
) € 64) 
NEXT J 

HOME 

D$ = "US$ KEM CTKL-D 
FEINT D$$"CATALOCG" 
FRINT $ FRINT 
FRINT "LA MODIFICATION VOUS : 
FLAIT-ELLE 79" 

HTAE 105$ FRINT "1=OUT" 

HTAE 105 FRINT "2ENON"$5 HTÂAE 
30% INFUT Z$ FKINT $ FRINT 
HOME 
IF Z +4 1 OR Z % 2 THEN 510 
IF Z # 2 THEN 240 


FRINT "FOUR SAUVEGARDER CETT 
E MODIFICATION, CHARGER L 
E FROGRÂAMME HELLO DE VOTRE" 
FRINT "CHOIX ET INITIALISER 
UNE NOUVELLE " 
FRINT "DISQUETTE" 
PRINT $ FRINT $ FRINT " 

AU REVOIR" 


Les clubs ont la parole 


ASSOCIATION DE MICRO-INFORMATIQUE 
A.M.I. 76 

BOITE POSTALE 4059 

76022 ROUEN CEDEX 

TEL : 16 (35) 89 49 18 


Créée en août 1981, cette association à but non lucratif se donne pour objectif de 
regrouper des utilisateurs et utilisatrices de micro-ordinateurs. 


1. Premiers axes d'activité 

- Études comparatives des matériels et logiciels présentés sur le marché. 

- Essais et démonstrations de programmes professionnels. 

_- Initiation et formation à l'utilisation des micro-ordinateurs, à l'analyse et à 
la structuration des informations. 

Assistance et conseil, mutuels, entre les membres de l'association. 


2. Projets en cours 

- Etude comparative de plusieurs logiciels de comptabilité. 

- Expérimentation en contrôle de processus, sur APPLE. 

_ Travail à long terme de réflexion sur la micro-informatique, avec des 
formateurs. - 

- Constitution d'une bibliothèque micro-informatique (déjà assez importante). 


Nous avons déjà permis à des utilisateurs d'horizons très différents de se 
rencontrer : commerce, ophtalmologie, travail social, biologie, électronique, 
recherche en intelligence artificielle, marketing... 


REJOIGNEZ-NOUS AU PLUS VITE, ECHANGEONS NOS EXPERIENCES ! 


MA POMME 
6, rue Saunière - 75016 - Paris 


La première Assemblée Générale a eu lieu récemment. Il y a été décidé dé fixer la 
cotisation annuelle à 300 francs, les membres de moins de 18 ans bénéficiant d'une 
réduction de 50%. Le club tiendra une réunion les troisièmes mardis de chaque mois 


s 


à 19H30, dans un local restant à déterminer. 


Prochaines réunions : Visicalc le 20/4, les bases de données le 18/5 et CPM le 
15/6. Pour tous renseignements, téléphoner tous les jours de 20H à 24H au (1) 558 
0578. 


NANTES APPLE CLUB 
21 À, bd Gabriel GUIST'HAU 
1000 NANTES 
Personne à contacter : Monsieur BACHELIER 
| TEL : (40) 47 53 09 
Ce club a pour but de mettre en relation les utilisateurs d'APPLE de 1a région 
nantaise, utilisateurs (ou futurs utilisateurs), professionnels où personnels... 
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Courrier des lecteurs 


Monsieur, 
J'ai bien reçu le numéro 2 de POM'S avec pas mal de choses intéressantes. 


Une idée : ne pourriez-vous pas à chaque numéro joindre dans la disquette 2 ou 3 
graphiques H.R. utiles pour toute la famille, par exemple 

- carte de France avec départements 

- carte de France avec voies navigables 

- carte de l'Europe...etc 

Céla montrerait à certaines familles que l'ordinateur peut être utile à tous. 

Par ailleurs, pourriez-vous faire un article sur les multiples emplois de 
l'instruction EXEC ? Merci et bon courage 


Docteur Pierre-Yves GOURIOU 
08600 Givet 


REPONSE : 


1- Nous attendons les contributions graphiques (et autres) de la part de nos 
lecteurs. 


2= Bruno RIVES vous offre justement dans le présent numéro un article sur EXEC. 
Vous êtes comblé ! 


om’s 


BULLETIN D'ABONNEMENT 


Je désire recevoir le N° .. de POM'S 
[] avec disquette a 85 F TTC 
C] sans disquette _____ 35FTIC 


Je désire m'abonner pour 4 numéros 





à partir du N°, 
[] avec disquette Lu 295 F TTC 
[] sans disquette _____ : 120 F TTC 





Nom 22. 
Adresse 











Ces tarifs comprennent l'envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 





Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 49 rue Lamartine - 78000 Versailles 





64 Pom's No 3 


C'est avec impatience que j'attendais le numéro 2 de POM'S, et dans l'ensemble je 


n'ai pas été déçu ! Quel bonheur d'avoir enfin une revue en langue française 
consacrée à l'APPLE II ! Bravo ! 
Cependant, le dicton dit : "Qui aime bien châtie bien !". Aussi, après mes 


encouragements les plus sincères, me permettrai-je de faire quelques critiques ! 

1- La parution trimestrielle ne pourrait-elle pas être ramenée à une parution 
bimestrielle ? 

2= Beaucoup d'articles de fond que vous présentez proviennent de la revue "CALL 
A.P.P.L.E.". Il est vrai que vous l'avouez, mais tout de même, c'est un peu 
décevant pour ceux de vos lecteurs qui lisent "NIBBLE" ou "CALL A.P.P.L.E" ! 

3- Les programmes BASIC proposés sont d'un intérêt très restreint (AGENDA ou 
MULTIPLICATION). Pourquoi ne pas faire un article de fond sur un sujet (par 
exemple : fichier à accès séquentiel indexé) et proposer un programme BASIC 
illustrant cette étude ? 


A présent, à titre de participation, je vous propose un petit programme BASIC 
pouvant servir de "MENU" et qui utilise les possibilités très complètes de 
tabulation sur l'écran. L'exemple proposé permet 12 options, mais il peut être 
étendu à l'infini. 


Au niveau des possibilités méconnues de l'Applesoft, savez-vous qu'il est possible 
d'utiliser des données n'importe où dans un DATA à l'aide de POKE en page 0. Les 
pointeurs DATA sont : POKE 125,N : POKE 126,P 

N : valeur décimale du Bit de poids faible de l'adresse DATA, 

P : valeur décimale du Bit de poids haut de l'adresse DATA. 

EX : 818...HEX 8 = DEC 8 HEX 18 = DEC 24 

On tapera : POKE 125,24 : POKE 126,8. 

Seules contraintes 

1- Possèder un utilitaire de DUMP, par exemple CRAE. 

2= Placer les DATA en début de programme, de façon qu'aucune modification ne 
change l'adresse du DATA. 

3- On ne peut placer le pointeur qu'en début de ligne BASIC d'où la nécessité 
d'une ligne par type de DATA. 

Cette façon de procéder est plus simple que le "RESTORE NNN' proposé dans l'OI il 
y a quelque temps... 


Maintenant une question pratique : enseignant, j'aimerais utiliser les programmes 
de l'Hucation Nationale en LSE. Je possède un APPLE II + avec carte langage et 
carte Z80. Existe-t-il un LSE pour APPLE ? Y a-t-il moyen d'utiliser un LSE d'un 
autre MICRO moyennant quelques modifications minimes ? 
Edmond AUGIER 
MONACO 


REPONSE : 

1 -Hélas, ce n'est pas encore possible... 

2 -Nous ne pouvons pas nous taire sur tous les sujets évoqués par les revues 
américaines. Sinon, que pourrions-nous dire ? Notez que nous améliorons toujours 
ce dont nous avons eu l'idée en lisant les classiques. Vous pouvez constater 
qu'avec la conversion Pascal-BASIC de Gilles MAUFFREY, mise au point en novembre 
1981, nous avons eu l'idée en même temps que "CALL A.P.P.L.E". 

3 -Avec l'article sur EXEC, vous avez déjà un article de fond. FH épluchant le 
programme aide-mémoire (Pom's N 1),vous avez une excellente occasion d'analyser 
l'utilisation de fichiers séquentiel et à accès direct. 

} Malheureusement, il n'existe pas de LSE pour APPLE, et il n'est pas simple de 
modifier un LSE d'un autre micro. Par contre, il existe d'autres logiciels pour 
APPLE destinés à l'enseignement. 
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10 REM  XXXXKXKOKKKKKKOK OK OKKK 


x x 
De ARE RENE 350 VTAE 2: HTAE 2! INVERGE ? FRINI 
" DEMONSTRATION-FAGE 2 
XKXXKXXX 
XOXOKOHOKK OK OK KE K OK OK K OK + NORMAL 


360 VTAE 3? FOR I = 2 TO 39! FRINT 
"x"it NEXT I 

370 FOR VU = 8 TO 14! VTAE 2 X VU — 
10! HTAE 3% FRINT (UV - 735", 
+"#MBCVD? NEXT V 

380 HTAE 4? VTAE 18? FRINT ">" 

390 VTAE 21! HTAE 15! FRINT "VOT 
RE CHOIX "ÿ CHR$ (91)3" "3; CHR$ 
(9321 VTAE 21! HTAE 28! GET 

10 É dr HET 14 READ M$CI)! 400 IF CS = "Q“ THEN CURE 21400 
NEXT , so t END t REM @=FIN DU VERRO 


: UILLAGE DE LIST 
120 REM  XXXXX MK NOMOKK NOM KOKKONX 410 IF V = 0 THEN 290 


70 FOKE 214,2553 TEXT ? HOME ? KEM 
FOKE=FAS DE LIST 

80 DATA OFTION 1,0FTION 2,0FTI0 
N 3,0FTION 4,0FTION 5,0FTION 
6, SUITE MENU 

90 DATA OFTION 7, OFTION 8, OFT 
ION 9, OFTION 10, OFTION 11, 
OFTION 12,RETOUR DEEUT MENU 


x x 
| 420 FOR I = 0 TO 7 - V+ VTAE 18 — 
: ARBRE RENMIENC : 2 x It HTAE 4% PRINT "2"? IF 


L % O THEN VTAE 20 - 2 x IT! 
HTAE 45 FRINT ",," 
430 NEXT I$ IF V = 7 THEN FORT 


XX HCKHCK OK K KE OK OK OK OK OK K OK KR K 


éd a2t HTAB 1 PRINT ant HTAE RE 
0e PEINT ane NEUT US COSUE. 440 UTAE 4 + 2 x Vi HTAE 6: INVERSE 
290 ‘ à PRINT M#(V + 735 NORMAL 


450 FOR I « 0 TO 1000$ NEXT I 


| : 23 > 21 SE ? FR Se 
180 VTAE 23 HTAE INVERSE 3: PRINT D Ne DS DE du en 


" DEMONSTRATION D'UN LOGICIE 


0,570,580 
L DE MENU "! NORMAL | 

190 VTAE 3? FOR I = 2 TO 39! PRINT DR dd 
"x"? NEXT I EL 0e 

200 FOR I = 1 TO 7! HTAE 3? UTAE RL 


4 + 2 x It FRINT Ii"... "SMS CT 
X XX NONOKOKOKOK NON NOUCKOKKOKX 


)? NEXT I 
210 HTAB 43 UTAE 18: PRINT ">>" ; : 
220 VTAE 21: HTAE 15: PRINT "VOT NEC es RE ORAN 
RE CHOIX "; CHRS C1)" 3 curé | 520 GOTO 650: REM OFTION 8 
TOI AD 1e DA rer 540 GOTO 650: REM  OFTION9 
DR DD Le Ubu THEN 550 GOTO 650? REM OPTION 10 
0e REU ro EN DE PROCR 560 GOTO 650? REM OPTION 11 
AAA | 570 GOTO 650: REM OPTION 12 
2 - - 580 HOME ? GOTO 170 
230 V = VAL (C#23 IF V = 0 THEN A 
. 600 GOTO 650: REM OFTION ? 
7 . Q ue .… : . Eu 
on 610 GOTO 650: REM OPTION 3 
A re dde 620 GOTO 650: REM OFTION 4 
A La PÉeNare  .  re. 630 GOTO 650: REM OPTION 5 
: Pro ne rs 840 REM OFTION 6 
SE 650 HOME : UTAE 12:48 = "DEEUT D 
EN E VOTRE OPTION": HTAE 20 - LEN 


260 VTAE 4 + 2 x VS HTÂAE 6% INVERSE 
4 FRINT M$(V)i NORMAL 
270 FOR TI « 1 TO 1000? NEXT I 


CAS) / 25 FRINT A$i VTAE 20: 
HTAE 254 INFUT "TAFEZ ‘KETU 


280 ON V GOTO 590,600,610,620,63 js SC 
0,640,340 CRE RER 
290 REM  XXXX MN HOKOKKKHCN HOMO X 660 HOME à GOTO 170 : 1. 
k . 670 HOME ? VTAE 12: HTAE 12: FRINT 
"AU MOIS FROCHAIN !" 
x FAGE 2 DU MENU *x 
: > 680 NORMAL ? VTAE 23: NEW 


690 UTAE Vi FOR H = 1 TO 3: P 
“x"3t NEXT Hi? RETURN 

340 HOME 30 = 1? GOSUE 690: FOR FAP APR ete 7 TRES 
VU = 1 TO 221 HTAE 1? PRINT " ue EN DIN ere 
x"31 HTAE 39: FRINT "x": NEXT Dit 
Vi GOSUE 690 


XX MK KKKKKK OK KE OK K 


Imprimerie Laballery, 58500 Clamecy, imprimé en France. Directeur de la publication Hervé Thiriez 
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APPLE III 
L’Apple III est un système cl’ordi- 


Option B :38.100 F TTC. 
Idem A + Floppy supplémentaire 







nateur de bureau puissant, faisant | Option C : 
partie d’ensembles étucliés sur me- LOVE “ii 
sure et conçus pour résoudre vos em 

APPLE L besoins complexes en application. Imprimante 

Un des micro-ordinateurs les plus Pour les managers, les financiers, | thermique 

fiables de sa génération, Apple II les analystes et tous ceux qui ont graphique. 


est utilisé dans de nombreux 
domaines : gestion, comptabilité, 
enseignement, utilisations scienti- 
fiques et industrielles, applications 
domestiques. 


D'une très grande robustesse 
(garantie totale 1 an) Apple II n’ex- 
cède pas 5 kg et sa facilité de trans- 
port renforce encore sa souplesse 
d'utilisation. 

Son extensibilité est remarquable : 
Apple Il-étant compatible avec la 











besoin d'organiser des faits et des 
chiffres, il existe le système 
d'Analyse ce l'information Ap- 
ple III. 

Option À : 33.330 F TTC visi- 
cale 3 - S.O.S. buissness Basic - 
Moniteur 3 12” 





Pour APPLE II 


plupart des périphériques actuels, PHANTOMSEIVE 48 K (DOS 33)" re à 260,00 F TTC 
il bénéficie d’un large éventail de SPACE EGTS ASK (DOSS3210ù 33) re. 260,00 F TTC 
possibilités. RASTERIBEASIMERSAS KR ER cr 295,00 F TTC 
APPÉEPANICARIR EE ee. Re me 380,00 F TTC 
COMPUTERBISMARERGS RE 7. 395,00 F TTC 
COMPUTER NAPOPEONICS ASK ce 450,00 F TTC 
CONFIGURATION DE COMPRUMER AIR COMBAT AR 495,00 F TTC 

















DÊÉVELOPPEME VISICALC (DOS 3.3) 16 secteurs .................. 1764,00 F TTC . 
NT VISITREND ÆVISIPLOT 8... 0 2363,76 F TTC 
Langage \VSIDIES CNE DT 1 1764,00 F TTC 
VIP. ee + OU 1640,52 F TTC 
Matériel BASIQUE. PILOT. DBASCAILE FORTRAN I VISITERM 2. 4000 à 0 1375.92 F TTC 
= - DÉSRTOPAPLAINIE 2000 ee 1764,00 F TTC 
Système [Plus EPlus  IPlus IT Plus CCA/DMS (Gestion de Fichier) ................... 1105,44 F TTC 
Mémoire A BPDE WRIBERE MS. Le ue carte nt 576,24 F TTC 
utilisateur 32K 48K 48K 48K APPDE POS ee ee 0 DL LD 352.80 F TTC 
(RAM) - e c c ABLE PILONE SRE RENE. PNOMRNe CRE 129360 F TTC 
Micro-programmation Cartes piles Due nule : MINI-ASSEMBLEUR APPLE SOFT............... 235,20 F TTC 
Unité BASIC BASIC Langage Langage PROGRAMME + 
| Dick II l lou? 74 1 COMPTABILITÉ GÉNÉRALE (SAARI) ..…......... 3410,40 FTTC |5 
PROGRAMME PAYE (GIPSI)....................298720 F TTC |$ 





ge qq qq 








BON DE COMMANDE Je soussigné : Nom Prénom 
EXPRESS je dis 
Code postal Ville 





commande fermeetidésire recevoir d'urgence 
A retourner à : ILLEL Center Informatique : 
service vente par correspondance 
143, avenue Félix Faure 75015 Paris. 








MODE DE RÈGLEMENT CHOISI 

[1 à la commande paiement comptant 

© à crédit* à partir de 2000 F. 

Je verse 20 % du montant total de mon achat : CE 
ci-joint : Chèque bancaire [1 C.CP. O Mandat carte El 


* Conditions de crédit CREG : « Être salariés 
+ 20 % minimum au comptant, solde arrondi à la centaine supérieure. 


Frais’ de port 
pour envoi postal 





TOTAL A PAYER 

















Pour mieux choisir 
“votre” ordinateur 
et pour mieux l'utiliser. 


> 
*. nya 


SO 
LS demain? 


L'ORDINATEUR 
INDIVIDUEL 


Vous y trouverez : 


L'actudlité et les tendances de l'informatique individuelle + des galops et des bancs 

d'essai des principaux matériels < des panoramas et des tests comparatifs + le point 

des grandes manifestations internationales + des articles d'initiation < des synthèses 

« des programmes + des interviews “exemplaires” + des conseils + des idées 
° des astuces. 


{ L'ORDINATEUR 
INDIVIDUEL 
chez votre marchand de journaux 


41 rue de la Grange aux Belles - 75010 Paris 





